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ABSTRACT 


This thesis describes the design and functionality of a Distributed Petri Net Con- 
troller (DPNC). The controller runs under X Windows to provide a graphical inter- 
face. The DPNC allows users to distribute a Petri net across several host computers 
linked together via a TCP/IP interface. A sub-net executes on each host, interacting 
with the other sub-nets by passing a token vector from host to host. One host has 
a command window which monitors and controls the distributed controller. The 
input to the DPNC is a net definition file generated by GreatSPN. Thus, a net may 
be designed, analyzed and verified using this package before implementation. The 
net is distributed to the hosts by tagging transitions that are host-critical with the 
appropriate host number. The controller will then distribute the remaining places 
and transitions to the hosts by generating the local nets, the local marking vectors 
and the global marking vector. Each transition can have one or more precondi- 
tions which must be fulfilled before the transition can fire, as well as one or more 
post- processes to be executed after the transition fires. These implement the actual 
input/output to the environment (machines, signals etc.). The DPNC may also be 
used to simulate a GreatSPN net since stochastic and deterministic firing rates axe 
implemented in the controller for timed transitions. 
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1.1 Problem Description 


CHAPTER 1 
INTRODUCTION 


Petri nets are becoming popular for modeling manufacturing systems [13]. 
This project attempts to facilitate the use of Petri Nets for controlling discrete event 
dynamic systems such as manufacturing systems and flexible manufacturing systems 
incorporating robots. The growing complexity and emphasis on productivity forces 
the issues of reliability, ease of implementation, prototyping and verification. Since 
Petri nets can be analytically proven to be free of deadlock and bounded, the reliabil- 
ity issue is helped using the Petri net technique. Since it is costly to do prototyping 
using actual machines, a Petri net model of a manufacturing system may be analyzed 
for its performance, thus further enhancing the value of this approach. 

Discrete event dynamic systems are characterized by concurrency and asyn- 
chronous operation and Petri nets can capture these traits easily. To reduce the 
complexity of using Petri nets, design tools and analysis tools are necessary for 
building correct controllers. 

The distributed Petri net controller (DPNC) was designed with the above 
in mind. To further enhance the Petri net property of concurrency, a distributed 
architecture was chosen wherebv the Petri net is distributed across several host 

i 

computers which are linked together via a local area network. The controller was 
demonstrated using a model of the dual arm testbed in Rensselaer’s Center for 
Intelligent Robotic Systems for Space Exploration (CIRSSE). 

Other, more practical requirements for a controller include a need for flexibility 
in allowing the designer to easily interface with machines, devices, signals, etc. that 
\ are connected to the individual host. Since the Petri net is distributed, there must 
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be some scheme for distributing the places and. transitions of the net on the various 
hosts. For operation of a system controlled by the DPNC, an interface that provides 
control and display of status in real-time must be provided. The status of the net 
(and thereby the machine s) must be available on the operator screen. 

1.2 Thesis Organization 

Chapter 2 describes briefly what a Petri net is and how it can be applied to 
control. The effort of this project is compared to earlier work. Chapter 3 describes 
the internal design of the controller, the various programs and implementation de- 
tails. Chapter 4 describes how the DPNC may be used to control a physical system 
and chapter 5 gives a specific application of the controller. A model of the CIRSSE 
testbed [8j is used to demonstrate the utility of the DPNC. Chapter 6 discusses the 
results obtained. Chapter 7 has a discussion on future directions of this project. 
Appendix A contains source code listings of all programs included in the controller 
package. Appendix B lists the programs and code written to implement the example 
of chapter 3. 


CHAPTER 2 

PETRI NETS AND MANUFACTURING 


2.1 Introduction 

This chapter gives a description of the Petri net theory on which the project 
is based. Uses of Petri nets in manufacturing are also discussed and some of the 
software tools available are reviewed. Existing implementations of Petri net based 
controllers are discussed. 

2.2 What is a DEDS? 

Discrete-event dynamic systems (DEDS) comprise a growing segment of the 
manufacturing base today as automation is becoming more widespread. This in- 
cludes unmanned systems for space exploration and work in other hazardous envi- 
ronments. A DEDS is any system where resources and materials are quantized in 
discrete units. The opposite would be a continuous flow process plant, which could 
be described using differential equations. Petri nets are well suited to describing 
and modeling DEDS and are thus chosen as the basis for a controller suitable for 
DEDS. 

2.3 What is a Petri Net? 

A Petri net is a directed, weighted, bipartite graph. The graph consists of two 
kinds of nodes, transitions and places, which are interconnected by arcs from eicher 
a place to a transition or vice-versa. The arcs have weights representing the number 
of parallel arcs between two nodes. 

A marking of the net represents a particular state of the net. The places are 
marked with a number of tokens, and a marking vector represents the number of 



Table 2.1: Common Interpretations of Transitions and Places 


Input Places 

Transitions 

Output Places 

Preconditions 

Event 

Postconditions 

Input data 

Computation Step 

Output data 

Input signals 


Output Signals 

Resource request 

Task or Job 


Conditions 

Clause in logic 

Conclusions 

Buffers 

Processor 

Buffers 


tokens in each place of the net. A marking is denoted by M, where M is an mxl 
vector (the net has m places). The pth component of M, denoted M(p), is the 
number of tokens currently assigned to place p. 

The marking of the net determines the firing of the net, or the flow of tokens 
through the net. A transition can fire when there is at least k tokens in each 
of its input places with multiplicity k. When a transition can fire, it is enabled. 
It may, or may not fire, depending on the physical significance attached to the 
particular transition. When a transition fires, it consumes k tokens corresponding 
to the multiplicity of the arc from each of its input places and deposits a number of 
tokens in each of its output places, depending on the multiplicity of the output arcs 
to each output place. 

The places and transitions hold some physical significance; a place may repre- 
sent the state of a machine, an input signal, a request by one machine to another, 
a resource, a part or a buffer. Table 2.1 gives some common interpretations!' 1 ]. 

2.4 Petri-Nets in Manufacturing 

A simple example of a Petri Net model of a manufacturing system is a 2 
machine one buffer model (Fig 1.) representing a producer machine and a consumer 
machine. In this model, the place labeled Piece Made represents a piece made by the 
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Piece Made Buffer Capacity Consumer Ready 



Figure 2.1: Simple Producer/ Consumer Petri Net Model 

producer. Place Piece in Making represents the producer is currently making a piece. 
The transition Tl fires when the machine is done producing, taking the input (raw 
piece) and depositing a finished piece in the input and output places, respectively. 
Conversely, the place Consumer Ready signifies (when marked) that the consumer 
is ready to accept another piece. Transition T4 fires when the consumer is ready 
and the buffer Pieces in Buffer contains at least one piece. Transition T2 represents 
the consumption of a piece. 

The utility of Petri nets in modeling DEDS may be seen from the fact that the 
buffer size can be changed by simply changing the initial marking of place Buffer 
Capacity. The number of producers (or consumers) may be changed simply by 
changing the initial marking of places Piece Made or Consumer Ready. 

An example of why Petri nets are useful for control of DEDS is that the Petri 
net may be analyzed for deadlocks, cycles and boundedness. A Petri net which is 
free from deadlock and bounded, will ensure that the Petri net control system logic 
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will have these desired properties as well. The model of the system may also be 
used for performance analysis given performance data for the individual machines 
and components in the system. Of course, the accuracy of the analysis is dependent 
on the accuracy of the assumptions made. 

The above simple system may be used to implement a distributed Petri net 
controller. Input and output procedures associated with the transitions can be 
implemented on the controller in some chosen language and can be interfaced with 
the controller hardware. 

2.5 Petri-Net Design Tools 

There exist a number of software tools for designing and analyzing Petri nets. 
One of the most comprehensive tools is GreatSPN[2]. This program may be used to 
graphically design a Petri net using a Sun workstation. The net may be analyzed 
for its P- and T- invariants, as well as transition throughput and token probability 
distribution. 

SPNP is a set of ‘C l subroutines^] that are used to solve the steady-state 
Markov chain to find token distribution and transition throughput. It is very pow- 
erful. but somewhat cryptic to use. A tool has been written at RPI, called Great- 
SPN2SPNP(4], which translates the net information files of GreatSPN to an SPNP 
program. This allows for much easier building of SPNP programs. 

There are other programs as well, but the above two may be the most widely 
used and known. 

2.6 Comparisons with Earlier Work 

Three previous Petri net control schemes have been designed and implemented 
at RPI. The first of these by Crockett[5] is an application-independent controller 
using Petri nets to describe the sequencing of operations. A hierarchical structure 
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was used by defining macro nodes to embed sub-Petri nets in a large model. 

This control scheme was further enhanced by Kasturia[6] by including colored 
Petri nets to describe the controller. Rudolph(7] improved on [5] by simplifying the 
Petri net description files. The controller in [7] was used to control a miniature 
flexible manufacturing plant. 

Outside of RPI, Petri nets have been used for fault- tolerant systems [9], as 
programmable logic controllers [10], [11] and for controlling flexible automation sys- 
tems [12] [14]. Petri nets were used in [12] as the basis for control programs for 
general purpose factory automation (FA) controllers. A total FA system has been 
implemented in [14] with Petri net based station controllers networked over a local 
area network. 

This project addresses three major issues compared to the above references: 

1) . Allow seamless integration of the controller with a Petri net design pack- 

age (GreatSPN). 

2) . Use only generalized stochastic Petri nets to allow analysis using algo- 

rithms for generalized stochastic Petri nets (GSPN), even if this may 

mean loss of the hierarchical features in [5]. 

3) . To use distributed processing as a means to facilitate the concurrency 

and asynchronous features of Petri nets. 

2.7 Summary 

Petri nets have many desirable features for control of discrete event dynamic 
systems. The ability to analytically determine deadlocks, boundedness and finding 
cycles as well as performance analysis of the system contributes to the design of 
both the system to be controlled and the controller. Past work both at RPI and 
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outside have taken advantage of these features. Chapter 3 describes the DPNC and 
how Petri nets are incorporated in the controller. 


1 
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CHAPTER 3 

CONTROLLER DESIGN 


3.1 Introduction 

This chapter describes the architecture of the distributed Petri net controller. 
Figure 3.1 shows the architecture for an n-1 node controller. In the depicted scenario 
there axe n-1 host computers, each connected to a local area network. It is assumed 
that host computer 0 is a SUN workstation with Suntools for running GreatSPN 
and X windows (XllR.4) for running the display and command programs. 

The DPNC consists of off-line and on-line programs. The Petri net for min g 
the basis for the controller is designed off-line using GreatSPN. An editor is used 
to write the various host specific driver routines, and the ’C compiler is used to 
compile the run-time programs. The run-time token players and supporting display 
and command programs are run on the various hosts. Each host also runs a device 
driver process that interfaces the individual token player to the physical machines 
connected to the host computer. 

3.2 Major Programs of the DPNC 

The DPNC is composed of several programs, each of which is responsible for 
the implementation of a major function. These are 

build A shell script program that prompts the user for the hostnames the controller 
is to run on. The command build contr will use the GSPN file contr.net 
residing in the SHOiVIE/greatspn/neis directory of the user, build will call all 
appropriate programs such as assign and make to generate the token players. 

net2n_m This program is a modified version of netSn.c written by Andreas Nowatzvk 
at Carnegie- Mellon University, School of Computer Science. March 1989. The 
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To Physical Devices To Physical Devices 


To Physical Devices 


Figure 3.1: Architecture of Distributed Petri Net Controller 
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input to the program is a .net file and the output is a .n file containing the 
structure of the net only. The modification allows inhibitor arcs to have mul- 
tiplicity greater than one. 

assign The net structure as given in the .n file is used by assign to distribute the 
Petri net across the sub-nets defined by assigning transitions in GreatSPN. 
The file hostnames generated by build contains the host names and numbers 
and is used by assign to give the token player the correct socket addresses. 
assign outputs the net definition files for all token players. 

pnn Each token player is compiled with unique ? C’ include data files generated 
by assign. The n programs (one for each sub-net) implement one sub-net 
where each token player runs asynchronously and fires any transitions that 
are enabled. The places that axe common to transitions residing oa different 
token players are called global. Global places are passed from token player to 
token player in a token- ring fashion using sockets during net execution. 

XCommand Commands to the DPNC are issued using XCommand by moving 
the mouse to the appropriate button in the command window and clicking the 
left mouse button. The program will then send that command to each token 
player and the net display program via sockets. 

XDisplay The Petri net is displayed in an X window made by this program. The 
net appears as it was made in GreatSPN. Each token player sends a firing 
vector to X Display during net execution and transitions are highlighted when 
they fire and token counts are shown in the places. 

3.3 System Files 

The DPNC is composed of several programs. Each program depends on input 

files and produces output files. The system files, shown in figure 3.2. are : (note 




‘C program files 


Figure 3.2: System Files 

that the notation namen.i means that one file for each token player is required) 

test.net The net definition file generated by GSPN. It contains the structure of 
the net as well as the geographical information for drawing the net. This file 
is copied from the users Petri net directory, e.g., /grcatspn/ncts every time 
build is run. 

test.n The net structure file. Note that build generates this file every time it is run. 
The file stores the most recent net to be built. 

hostnames* This file contains the Internet host name and the host number (0 — 


n-1) for each of the n token players. 
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XCommand.i Contains the Internet address of each token player to connect to 
the command sockets and the display socket. 

XDisplay.i Contains information about how the net has been partitioned. Also 
contains hostnames and addresses. 

netn.i Sub-net definition files with ‘C‘ code initialization of the data structures for 
each token player. 

netn.h Contains the sizes of net data structures for each token player (the number 
of transitions and local and global places). 

interfacen.i* A library of routines to implement the interface to any machines 
connected to the individual host computer. 

tr_linksn.i* An initialization file with pointer assignments linking transitions to 
the input /output routines defined in interfacen.L 

tnamen.h These include files contain the transition names and the transition in- 
dexing number at each token player. These numbers are necessary when the 
transitions are used for input/outpur.. The files may be used as include files 
in the device driver programs so that instead of looking up the indexing num- 
ber of a transition at a particular token player (which may change as the 
net is modified), the name of the transition may be used. This is possible 
since tnamen.i contains ft define statements such as ft define T29_IN_A7_Q 
2. Note that the symbols / and ' are changed to -ATI, _ OUT _ and _/jV_ 
respectively to conform to allowed C" constant naming convention. 

The designer is responsible for writing the files marked with * using a text 
editor (like EMACS or vi). These files contain the information for connecting the 
token players to any devices connected to i heir respective host computers. 



3.4 Assigning Places and Transitions 

assign distributes the Petri net into n sub-nets based on the transitions that 
are preassigned by the user in GSPN. To preassign a transition, the name of the 
transition is appended with @h where h is the host number. It is required to preassign 
only the transitions that will be enabled externally or will execute some command 
since these will be linked to a ‘C‘ routine in the file trjinks.c. 

assign will first read in the structural information from name.n. The places 
and transitions are assigned to the hosts by successively looking at each place to 
count the n umb er of dependencies to already assigned (preassigned) transitions. If a 
place has only one host dependency, the place is local, if the place has more than one 
host dependency (i.e., a place has an arc to transitions residing at different hosts), 
the place is global. 

The unassigned transitions are then checked to see how many dependencies 
(i.e., input, output or inhibitor places) it has on each host. The transition is placed 
at the highest host count. 

The above two steps are repeated until all places and transitions are assigned 
to a host. 

The places that are global become the global marking vector which is passed 
from token player to token player using the token-ring structure set up using sockets. 

3.5 Data Structures 

The sub- net structure is stored in an array of transitions in each token player. 
Some of the key elements of the data structure are shown in table 3.1. 

Each token player also has data structures for the local- and global marking 
vectors. The local marking vector stores the marking of the local places at each 
token player whereas the global marking vector stores the marking of the global 
places when the global marking vector is available at the token player. Each data 
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Table 3.1: Data Structure in Token Players 


flag 

immediate 

Immediate transition flag 

flag 

timed 

Deterministic timed transition 

int 

(’•preprocess) () 

Pointer to procedure 

int 

( ’•postprocess )() 

pointer to procedure 

long 

LInputMask 

Input mask for local places 

long 

GlnputMask 

Input mask for global places 

short 

LInput Vector 

Local input incidence matrix 

short 

LOutput Vector 

Local output incidence matrix 

short 

G Input Vector 

Global input incidence matrix 

short 

G Output Vector 

Global output incidence matrix 

short 

LInhibit Vector 

Local inhibitor arc multiplicity 

short 

G Inhibit Vector 

Global inhibitor arc multiplicity 


structure also includes a mask bit for each place which is set when the place has a 
token. 


3.8 Petri Net Execution Algorithm 

The token players are independent processes r unni ng on separate host com- 
puters. Each token player executes a sub-net of the controller Petri net. The token 
player will evaluate each transition sequentially and fire the ones that are enabled. 
Whenever a transition fires, all transitions are evaluated over again. This is per- 
formed until no transitions can fire. The token player is then suspended until an 
external event occurs. An external event includes a socket message from either 
the command window, XCommand. the proceeding token player in the token ring, 
or a socket message from an external device driver. This makes the token player 
event-driven and helps reduce the load on the host computer. 

A watchdog timer also generates periodical time-out events in case the token 
player should have lost a socket interrupt, which may happen when the host is 
heavily loaded (in the SUN Sparc Station case). 




Each token player stores both a local marking vector and a global ma rki ng 

vector. Since the global marking vector is passed from token player to token player, 

the transitions that axe dependent on input from the global marking vector axe 

disabled when the global marking vector is not available at that particular token 

player. All other transitions at that token player may fire if otherwise enabled. If a 

transition has an output arc to a global place, the output tokens to the global place 

are temporarily held at the token player until the global ma rk ing vector again is 

available at that token player. These tokens axe then added to the global places. 

Each token player is allowed to retain the global marking vector for a fixed 

number of iterations of checking for enabled transitions. As soon as a token player 

has used its quota* it must be passed on to the next token player. 

The token players axe identical except from the sub-net executed. Token Player 

0 is als o unique since it provides the server socket for token player 1, and waits to 

% 

open a client socket to token player n-1. A token player has a simplified structure 
which looks like the following: 

• initialize sub-net 

• initalize socket connections 

* 

• set command to HALT 

• while command not STOP 

• wait until event occurs 

• get-.event() Read all sockets 

• switch (command) 

• case RUN : token.?layerO — execute net 

• case HALT : 

• case RESET : re- initialize net 

• case STOP : 


• close all sockets. 
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token -p layer is the actual subroutine that executes the net at each token player. 

It has a simplified structure 

•while command = RUN and get_aexX-transitionQ # FALSE 

• get.event O 

• if transition enabled 

• fire the transition 

• set eventflag TRUE 

• if global marking period expired 

• release global marking vector to next token player 

gct-next-transition ( ) returns the next transition to be checked. If all transitions 
have been checked to see if they can fire and none did, this routine will return FALSE, 
thus causing the routine token-piayer( ) to exit by releasing the global marking vector 
(if token player had the global marking vector in the first place in this iteration). 
The program is then suspended until the next event occurs. 

get_event() is called to check the sockets in case a command, the global marking 
vector or a device driver message is available. 

A transition is checked by enable(tr) . This routine returns true if the transition 
is enabled by having enough tokens in ail input places, not more than the allowed 
tokens in the inhibitor places and all external preconditions satisfied, fire(tr) simply 
removes the tokens in the input places, executes the postprocess, if any, and deposits 
tokens in the output places. The event-flag is set to enable the token player to check 
all transitions again. 

3.7 Run-Time Structure 

A sequence of programs must be started to set up the DPNC correctly. The 
requirements are that an K-windows server has one terminal connected to each host 



computer. A 3 node controller topology is given as an example of the run-time 
structure of a distributed Petri net controller in figure 3.2. 

The X server may be any one of the host computers, the only critical part is 
that the processes run on their respective hosts. The sequence of processes to be 
started and which host terminal window to start it on is as follows: 

HOST 0: Start XDisplay by entering XDisplay. This program will open a 
window on the X server where the net will be shown. XDisplay then waits 
for socket connections from each of the token players and the command 
program. 

HOST 0: Start token player 0 by entering pnO. 

HOST 1: Start token player 1 by entering pnl. 

HOST 2: Start token player 2 by entering pn2. 

HOST 0: Token Player 0 is at this point waiting to connect to token player 2 
to close the virtual token network for global marking vector passing. By 
entering any character and pressing enter, token player 0 will connect to 
token player 2. 

HOST 0: The final step is to start the command program. All other processes 
are now waiting for this program to open a socket to each of them. Enter 
XCommand to start the command program. A co mman d menu will appear 
as soon as all sockets are connected. 

After following the above sequence of starting processes, the DPNC would 
have several socket connections between the various processes. These sockets are 
depicted in figure 3.3. 
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Figure 3.3: Host Computers with Associated Processes 

The names listed at each computer is the Internet node name of the host computers 
used for ru nnin g the testbed controller. All computers used are SUN S parcS tation 
1 . 


i 
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Token Ring Sockets 
Com man d Sockets 
Display Sockets 


Figure 3.4: Socket Communication Structure 

Not shown in this figure are socket connections to other processes that implement the 
device drivers at each host. Typically, one would have two unidirectional sockets for 
e ach device driver. Since the number of devices might be large, it would furthermore 
be advisable to write one device driver program handling all devices. f 


1 
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Figure 3.5: Command Window 

3.8 X Interface for Controller Commands - XCommand 

The X interface to control the execution of the net is implemented in the 
program XCommand. This program presents the operator with a menu (fig. 3.4) 
with 12 different buttons. 

The buttons have the following effect: 

Start Enables continuous firing of all enabled transitions at each token player. 
Pressing the start button also resets the transition firing counter and the 
timer showing how long since execution was started. 

Halt Disables firing of all transitions. The timer continues running. 

Continue Enable continued firing without resetting the timer and firing count. 

Reset Resets the marking vector to the initial marking vector. Should not be used 
when the system is executing a net connected to any real devices. 




Quit Stops all token players and the interface programs. 

Single-Step Toggles single-stepping the firing of transitions. When Single-Step 
is enabled, only one transition at a time may fire (if any enabled) at each token 
player. 

Fire Enables one transition to fire at each token player. 

Display Stats Turns on the display of statistics at each transition. 

Rate/Times Fired Toggles between the running average firing rate of each tran- 
sition and displaying the number of times each transition has fired. 

Reset Stats The timer and the firing count is set to zero. 

Net Listing Dumps the current status of all data structures at each token player 
to the terminal window where the token player was started (stdout). 

X Command sends a command message to each token player and to the display 
program when a button is pressed. The Athena widget set is used to implement the 
X command menu. 

3.9 X Interface for Displaying the Net - XDisplay 

XDisplay is the program used for showing (in near real-time) the firing of the 
net in an X-window. The net is drawn as it was designed in GreatSPN, thus ensuring 
familiarity with the graphical representation of the net. 

XDisplay is suspended until either an event occurs on the input sockets or a 
one-second timer interrupt is issued. A socket message from any of the token players 
or the command window causes the program to wake up and read the sockets. A 
socket message from a token player consists of a count of how many times each 
transition has fired, the local marking vector and the global marking vector. 
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Figure 3.8: Display Window 

Any transition firing counts that have changed since the last update cause 
those particular transitions to he highlighted for approximately 350 ms. The pro- 
gram is suspended for this time, but if a new socket message appears, the program 
wakes up and services this, updating the display as needed. The tokens are drawn 
in the center of each place as a dot. If there are more than 4 tokens in a place, the 
dumber is written directly for making it as easy as possible to read the marking. 

When the net is executing, the elapsed time is displayed as well as the current 
status of the DPNC (running, halted or single-step mode). Statistics for all tran- 
sitions may be displayed next to each transition. The host names also appear at 
the left side of the screen. In this case, host number 0 is neptune (one of the many 
stellar names used in the CIRSSE lab at R.PI) and host number 1 is moon (Internet 
node names may be written in full: i.e. neptune.ral.rpi.edu). 

The user may select which sub-nei to display by pointing the mouse in the 




display window and pressing the character 0 to toggle displaying the net on token 
player 0. 1 will toggle the display of token player l’s net and so on. G toggles the 
displaying of the global marking vector whereas A will turn on the displaying of the 
entire net if any nets are turned off. 

3.10 ‘C‘ Language Implementation 

3.10.1 Introduction 

The entire controller is implemented in ‘C l on Sun workstations using BSD4.2 
UNIX operating system. The following is a description of each module comprising 
of the main programs. A module is a file with one or more subroutines, usually 
logically connected. 

3.10.2 net2n_m 

This program is listed in Appendix A.l. The program consists of the following 

file: 

net2n_m.c All supporting subroutines are found in this file. The program is com- 
piled using cc only. 

3.10.3 Assign 

Assign Appendix A.2 contains the program listing for assign. A makefile masg 
is used for making the program with the following supporting files: 

assign, c Main as well as all procedures to manipulate and assign the places and 
transitions are contained in this file. 

syserr.c This routine is called in most places where the program performs I/O. 
If an I/O call should fail, this procedure will print the reason it failed and 
terminate the program. 
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3.10.4 Token Player 

The token player is compiled using the makefile mpn . The following support 

files are used: 

player. c The net execution routines as well as mainQ are implemented here. The 
socket initialization routine is also implemented in this file. 

setblock.c A routine to set or reset blocking of a file descriptor (a file descriptor 
may point to a socket or a file). 

server_intr.c This file contains the routine used to set up a server socket (client 
sockets connect to a server socket) with an interrupt signal to be issued when 
a socket message is received. This mechanism is used to wake up a program 
that has been suspended. 

intr.timer.c A watchdog timer is used to wake up the token players in the case an 
interrupt is lost. This sometimes occurs when the workstation is heavily used. 
The timeout is set for 4 seconds when the controller is not used for simulation 
(no timed transitions) and for 0.1 second when there are timed transitions. 

client. c This procedure is used to connect, to an already open server socket. 

timed_trans_handler.c The routines used to handle timed transitions are con- 
tained in this file. These start and check the timers for each timed transition 
during net execution. 

timer. c The system clock is initialized and read using the routines in this file. 

xrand.c This file contains routines for random number generators and has been 
obtained from the same source as nttUn.c. The random number generator is 
used for simulating stochastic firing rimes of exponential transitions. 
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event_handl«r. c External communication with other token players and with the 
co mman d program is implemented here. 

* 

init_net.c Each token player executes a sub-net. These nets are defined in this 
routine using an include file neint which initializes the data structures. 

interface.c Device drivers are implemented in this routine. 

dump.c The net listing is done by calling this routine. | 

3.10.5 XCommand 

The command program is compiled using the makefile mXc. The program is 
compiled using the following support files: 

XCommand.c This file contains maxn() and the procedures associated with each 
button in the menu. 

setblock.c, client. c, syserr.c have already been described. 

1 

3.10.6 XDisplay 

The net display program consists of a large number of support files for imple- 
menting the X interface as well as routines to decode and display the firing vectors 
received from the token players. The program is built using the makefile mXd. 

XDisplay. c This file contains main( ) as well as routines to read the net structure, 
read and draw the geographical information and read the sockets. 

Xdraw.c Ail primitive drawing routines are contained in this file. The sizing of 

the window, symbol sizes etc. may be scaled by changing the constants in em 1 
Xdraw.h. the include file used by the drawing routines. 


1 
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Xroutines.c Support routines for initializing, opening and exiting X are contained 
in this file. 

stats. c The running averages are computed and displayed using routines in this 
file. 

eventx.c X events (window size changes, overlaps etc.) are handled by this routine. 

timer. c, set b lock. c, server_intr.c, intr.timer.c, syserr.c are described previ- 
ously. 

3.11 Summary 

The internal workings of the DPNC have been described along with the files 
and programs used in the controller. It should be noted that a large number of data 
and program files are generated. This allows not only for custom tailoring of the 
controller, but also creates a need on the designers part to carefully document the 
implementation of a specific controller. 





CHAPTER 4 

USING THE DISTRIBUTED PETRI NET CONTROLLER 


4.1 Introduction 

A successful implementation of the controller requires careful thought to how 
the DPNC interfaces to the real machines and devices it is supposed to control. The 
Petri net itself must also be designed to facilitate decentralized control. This chapter 
discusses how the DPNC may be used and what issues need to be addressed. 

4.2 Special Petri Net Design Considerations 

The DPNC places a few restrictions on how the Petri net control logic is 
designed. Firing order is not random, but each transition is evaluated in a specific 
order. Thus, if there is a choice place (one place is the enabling input place to two 
or more transitions), one transition will always fire first and consume the token(s), 
thereby preventing the other transitions from firing. 

Firing order is also dependent on how the net is partitioned and how the token 
players axe arranged. Since the global marking vector is passed from token player to 
token player, the control logic embedded in the net must take the order of receiving 
the marking vector into consideration. 

Finally, the number of global places should be minimized. The best method 
of doing this is to limit global places to represent only the exchange of information 
or resources between different token players. The more global places, the more 
transitions will be dependent on the global marking vector and the controller will 
in effect become less decentralized. 
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4.3 Design using GreatSPN 

The basis of any distributed controller is a Petri net model of the control logic 
made using GreatSPN (2j. GreatSPN provides graphical tools to design and analyze 
Petri nets on SUN workstations using Suncools 1 . 

It is also possible to obtain performance data for Petri nets. Information such 
as transition firing rates and token probability distributions will give the analyst 
insight into the perfor man ce on the modeled system. This is of course only possible 
if perfor man ce data are known for the individual machines and devices in the system 
to be controlled. It is also possible to translate the GreatSPN file to a SPNP(3)[4] 
file for further performance analysis. 

4.4 Input / Output using the Controller 

The DPNC facilitates I/O by linking procedures to transitions. A transition 
may have an enabling procedure and a firing procedure. The enabling procedure 
(called precondition) is a subroutine that returns true when a particular external 
condition holds true. Conversely, the routine must return false if the condition 
is not true. The subroutine is recommended to be short as it will be executed 
every time the transition is otherwise enabled. It is therefore not advisable to use 
a precondition subroutine to directly query a device using sockets, as that would 
introduce a 400 ms delay for each query. The preferred method is to use an external 
program that sends a status change to the token player whenever a change occurs. 
The precondition routine may then only check for a particular bit-pattern to be set. 

The external program must communicate with the token player using sock- 
ets(fig 4.1). The socket mechanism allows -he token player to be event driven. The 
token player will then be woken up whenever the device driver reports a change in 
status of a machine if the token player is suspended. 


l An X version is reportedly being prepared 
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Sockets Hardwired Connection 



Figure 4.1: Device Driver I/O 



Figure 4.2: Typical Use of Transition I/O 




31 


A design example for controlling the operation of one machine is shown in 
figure 4.2 where a machine is started when a workpiece is present and the m ac hi ne 
is ready. The machine is ordered to return to start position when it is finished 
producing a piece. Note the italicized strings next to the transitions represent the 
precondition (? appended to string) and the firing process (/ appended to string). 
This provides an easy method of labeling the transitions. Also note the @0 appended 
to the transition names assigns the transitions to host nu mb er 0. 

4.4.1 Input using Transitions — Example 

To implement this interface, a procedure for checking the machin e status and 
a procedure for issuing a command to a machine are needed. These may be written 
as follows: 


I 


int chec3c_statusCtrans.no, mach.no) 
int trans.no; 
int mach .no ; 


{ 


switch, (trans.no) { 
case 1 : 

if (M^TATUS [machj.o] kk M_RDY) return 1; 
else return 0; 
break; 
case 2 : 

if (M-STATUS [aach_ao] kk MJDQNE) return 1; 

else return 0 ; 

break; 

} 


1 


1 
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To link this procedure to the transition tlQO in figure 4.2, the line 
Transition [0] .precondition » check. status ; should be added in the file trJinka.L 
This line would assign the pointer address to that procedure. The number assigned 
to the transition at each token player is found in the neta.i files. The procedure is 
written as general as possible with M_STATUS being a global array of status words 
for all machines handled by the token player. MJIDY and M_DQNE are constants with 
the bit corresponding to that condition set. It is assumed that another procedure 
sets and resets these flags when appropriate. This procedure would be called every 
time a machine issued a status change socket message. A typical implementation 
might be : 

void set_status() 

{ 

int buf[lO], oread; 

if (oread » read ( in.s ocket , buf, length (buf) ) = — 1) 
syserrC " in_socket '* ) 

M_STATUS C buf [0] ] * buf [ 1 ] ; 

} 

The above code segment assumes that buf [0] contains the machine or de- 
vice number and buf [l] the status word. For a SUN workstation, this particular 
implementation would allow status 32 bits per machine (since each int is a 32 bit 
word). The designer may use several words per device as needed, thus expanding 
the number of bits. 

4.4.2 Output using Transitions — Example 

To issue commands to devices, interface. c could contain a routine to issue 


commands as follows: 



to id sand-command (trans.no , ■ach .no) 

BOOLEAN trans.no; 
int nach .no ; 

{ 

int coad; 

switch (mach jo) { 

casa 1 : /* — Machins number 1 */ 

switch (trans.no) { 

casa 1 : coad ■ 12; braak; 
casa 2 : coad * 14; braak; 

casa n : coad ■ z; braak 

} 


} 

buf [0] » mach.no ; 
buf Cl] * comd; 

if (writa(out socket , buf, length(buf)) = — 1 ) 
sysarr ("write") ; 

} 

The pointers of each output transition need to be initialized similarly to the 
input pointers. In addition to the procedures above, the procedure iniLsockcts in 
piayer.c need to include code to initialize the sockets for communicating with the 
device driver program. 
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4.5 Building the Token Players 

The controller design starts with the Petri Net obtained from GreatSPN. The 
host dependent transitions are assigned using the ©host convention. Driver software 
for the specific devices must be added next in the file interface, c with appropriate 
pointer links to the I/O procedures in the file trjinksn.i. The final step is to execute 
build name where name is the given net name in GreatSPN. 

4.5.1 Building a Distributed Controller 

The DPNC is designed for distributing a Petri net over several host computers. 
To facilitate this, build will prompt the user for each host’s Internet name. When 
all host names have been entered, the user should hit return and build will then 
proceed to make all files and executable units for the controller. 

4.5.2 Building a Single- Processor Controller 

The DPNC may also be used as a single-host controller by not assigning any 
transitions a higher host number than 0. Socket communication for passing the 
global marking vector will then be disabled. All processes (token player, XCommand 
and XDisplay) may then be run on one computer. The programs should be started 
in the same sequence as listed in chapter 3. 

4.6 Using the Controller to Simulate Petri Nets 

To facilitate simulation and verification of a Petri net model, it is possible to 
use the controller as a simulator. Immediate transitions may be converted to deter- 
ministic or stochastic using GreatS PN[2! with firing rates specified by the user. The 
example used in the I/O section (fig. 4.2) is shown in figure 4.4 with timed tran- 
sitions. The numbers next to the transitions in figure 4.4, 10.0000 and 0.35000, 
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Figure 4.5: Timed Transition Simulation 

are the firing rates assigned to these transitions. These reflect the expected time for 
the machine to go to the ready position and to process one piece, respectively. 

Note that when using the system as a simulator, all transition procedure links 
must be commented out in trjinksn.i to disable using the device driver interface 
routines. The transitions that were made timed for testing purposes must be made 
immediate when using the controller again. 

4.7 Using the Controller 

A few words of caution would be appropriate when using the controller with 
any real machines requiring fail-safe operation and emergency stop: Any emergency 
stop must be implemented in hardware (i.e., kill power to electric motors, engage 
brakes etc.). No operation required to be fail-safe should be implemented using this 
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controller (or any other for that matter). The controller introduces a lag of ap- 
proximately 200 ms per token player in the token ring. Thus, any device requiring 
immediate action when its status changes should be implemented using local places 
only. Transitions requiring the global marking vector will experience the aforemen- 
tioned delay before they may fire. Note that the socket mechanism may be modified 
to use datagrams or raw sockets which are much faster (there is very little delay) 
but do not have the TCP/IP delivery reliability. 

The next chapter will describe one application of the DPNC in controlling a 
model of a robotic testbed for assembly of structures in 3 pace. 

4.8 Summary 

This chapter has attempted to describe interfacing the controller to an ap- 
plication using sockets and dedicated driver programs that handle the physical in- 
put/output signals. The next chapter describes a test case where these concepts 
have been put into use. 
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CHAPTER 5 

TEST CASE — CIRSSE TESTBED CONTROLLER 


5.1 Introduction 

The previous two chapters described the internal structure of the controller 
and how to interface it to external systems. This chapter gives an example of how 
to actually control a system using the DPNC. The system chosen is the NASA 
CIRSSE (Center for Intelligent Robotic Systems for Space Exploration) testbed at 
Rensselaer Polytechnic Institute. The Petri net model for the system is found in [8]. 

To focus the design example on the actual controller and not the specific device 
drivers for any particular machine, several DPNCs are used; one acts as the central 
controller distributed across three host computers. One DPNC at each host acts as 
a simulator and device driver of the machines and devices connected to the token 
player at that particular host. These three DPNCs are single token players only, 
executing simple Petri net models of the actual machines. Figure 3.1 gives a picture 
of this setup with the processes marked Device Driver n representing single token 
player simulators. 

5.2 Dual Arm Testbed 

The system contains 2 PUMA robots, a mobile platform on which the robots 
are mounted, a vision system and 3 host computers for path planning and generation, 
and robot control. The host computers are tied together via Ethernet. The purpose 
of the testbed is for research of autonomous assembly of large space structures for 
the NASA orbiting space station “■Freedom". 



5.3 Petri Nets Describing the Testbed and Simulators 


The Petri net model of the testbed control system (figure 5.1) is partitioned 
into three subsystems: Operator interaction and offline path generation, vision sys- 
tem, and robot and platform control. Each subsystem uses one host computer, a 
SUN4, a SUN3/260 and a SUN3/150 respectively. The transitions modeling each 
subsystem are preassigned using the notation described in chapter 3 (appending @h 
where h is the host computer number). There are six global places: SUNJ, On Lint - 
Plan, OfflPrtdo ?. Trajo, TrajReqo and TrajRtqP. These places are shared between 
transitions assigned to different host computers. The partitioning can be seen in 
figure 5.1 by studying where the transitions are preassigned. The upper third of the 
net executes on token player 0 and the middle part of the net (the vision system) 
executes on token player 1. The lower third of the net executes on token player 2. 

To illustrate the use of external device driver programs, two or three stochastic 
transitions in each subsystem are modeled and simulated by the device driver/simulator 
Petri nets at each token player. 


5.4 Implementation of the Controller 

The third token player, tp2. will be discussed as an example of how to interface 
a token player to an actual device. The original Petri net was modified slightly to 
facilitate control of the devices. Three stochastic transitions model the two robots 
and the platform. T23-T25. These were expanded from one transition each, to one 
output transition to issue a start command, one place to indicate machine working, 
and one transition to query if the machine was done (see figure 5.1). The transitions 
were called T2iStart!@2 and TSDont ?'92 for i = 3, 4 and 5 respectively. 

The SlaTt."Q2 transitions signal to the device that the operation may start, 
while the Dont?'$2 transitions only fire when the devices signal that they are done. 
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Figure 5.1: CIRSSE Testbed Petri Net Controller 
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Figure 5.2: Simulator Petri Net for SXJN3/150 Devices 

5.5 Implementation of Simulators 

To simulate the two robots and the platform, a simple Petri net was designed 
and implemented as a single token player simulator at each host. For host number 2, 
this net consists of 6 transitions and six places (figure 5.2). The transitions TZHStart? 
are enabled by the start signal from the controller transitions described previously. 
The transitions TSiDone! signal to the controller that the devices are done. These 
latter transitions have stochastic firing rates modeling the time it takes to perform 
the action. 

5.6 Discussion of ’C’ Code 

Since four different D PMC’s were used, three subdirectories were made under 
the directory containing the controller. Each subdirectory contained one simula- 
tor for one host. Appendix B. contains listings of the code written to implement 
simulator/ device driver number 2. This code was placed in subdirectory SIMJ2. 


1 




41 


Note that the code for the controller is numerated 2 while the code for the 
simulator is enumerated 0 in the appendix. The reason is that the controller token 
player is number 2, while there is only one simulator token player at each host, thus 
giving that simulator the number 0. 

5.6.1 Controller Code 

A brief discussion of the controller code for implementing the interface to the 
device driver/ simulator is included here. For further information, please study the 
procedures themselves. 

tname2.h This file is an include file containing the name of the transitions of token 
player 2 with the transition number at that token player. By including this 
file in the device driver program file. interface2.i, it is possible to reference 
a transition by name (which does not change), instead of by number (which 
does change according to how the Petri net is partitioned and modified). 

interface2.i The procedures for testing preconditions, for executing postprocesses 
and decoding the input from the device driver are contained in this file. Also 
note the procedure conflict.rcsohit.ion which returns true or false with the 
probability given by the transition firing rate assigned in GreatSPN (note — 
this limits the rate number between 0 and 1 and is only meant to be used for 
immediate transitions). 

trJinks2.i This file is the include file that sets up the links for the transitions to 
call the appropriate procedures described above. 

5.6.2 Simulator # 2 Code 

The simulator can easily be modified to interface with real machines. The 
I/O procedures would need to be modified to include communication mechanisms 



Evaluation Time per Transition 



Figure 5.3: Transition Evaluation Time 


A study of the time to evaluate a transition was done by executing several nets 
on a SUN SpaxcStation I. The nets were all a sequence of places and transitions 
with the first place marked with 100 tokens. The time to fire all transitions 100 
times was recorded and averaged over 5 runs. Figure 5.3 shows how the firing time 
varies with the number of transitions in the net. From 10 to 32 transitions, the 
relationship is linear. For more chan 32 transitions, the curve becomes steeper. The 
reason is that the data structure required to store the token marking mask is a ’C’ 
long int which is 32 bits long. For more that 32 places, two words are required to 
store the mask and this accounts for the increased evaluation time per transition. 

The controller is very CPU friendly since it is event-driven. The average CPU 
time consumed as shown by ps is less than one percent. For this net, approximately 
one percent of available memory on a SUN Sparcstation 1 (8 MB RAM) is consumed. 
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to the actual devices, and the command and status messages would also need to be 
encoded for the particular device. 

tnameO.h contains the transition numbers as discussed above. Note that assign 
modifies the names to conform with C’ constant declaration rules (described 
in the comments in assign. c). 

interfaceO.i The procedures are the same as for the controller, except that the 
transition names are for the simulator. Note that the file ../tname2.h is t 
included. This allows the procedure writing to the controller to specify which 
transition should be signalled to by name instead of by number. 

trJinksO.i Same as above, but for the transition names of the simulator. 

init_sockets() The socket initialization is different than for the controller token 
player and thus listed in the appendix. This procedure belongs in the file 

player, c. 

get_event() Code for reading the socket to the controller token player is unique to 
the token player and thus listed here. 

5.7 Socket Communication between Controller and Simulators 

Each subdirectory containing a simulator has a unique portnums.h file. These 
files have socket port numbers for the simulators that are different than the port 
numbers used by the controller token players. 

5.3 Net Execution and Controller Performance 

The controller was found to control the operation of the (simulated) devices 
as planned. The system executed one testbed subtask in about 15.6 seconds using 
the firing rates given in [8j. This is very similar to the results obtained in [8j. 
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5.9 Summary 

A controller has been implemented for a robotic testbed using a Petri net 
model to facilitate the control logic. Petri net models of the machine s have been 
used to implement simulators for the same machines, thereby demonstrating the use 
of device driver programs. 
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CHAPTER 6 

CONCLUSIONS AND FUTURE DIRECTIONS 


6.1 Conclusions 

A distributed Petri net based controller has been designed and implemented. 
The major features of the system are: 

1. Seamless integration of the controller with GreatSPN for generating Petri 
net data files. 

2. Use of generalized stochastic Petri nets to allow performance analysis 
using known algorithms and software packages such as SPNP. 

3. Distributed processing facilitating the concurrency and asynchronous 
features of Petri nets. 

4. X Window graphics used to display the actual execution of the net. 

6.2 Future Directions 

This project has attempted to address the basics of a Petri net controller 
using as many available tools and programming standards as possible. Each choice 
has then, necessarily, been a compromise between speed of execution and speed of 
implementation. Speed of implementation has been prioritized in order to reach the 
goals listed in chapter 2 in a finite amount of time. 

There are a number of improvements that may be made to further enhance 
the utility and practicality of this project. Among these are: 

Token Coloration One immediate improvement would be to include colored Petri 
nets. This would also increase the complexity of net analysis (since the colored 
net would need to be unfolded). 
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Automated Startup Sequence This sequence may be automated so that the op- 
erator only would execute one command, instead of 2 + n-1 for an n-1 node 
token player. 1 

Selective Enabling/Disabling and Firing of Transitions A menu could be pre- 
sented to the user where each transition could be disabled, enabled and fired 
manually. 

Improved File Naming Convention Data files should have the Petri net name ® 

included in the file name with file name extensions indicating what kind of 
file it is. e.g. controller l.dspy could be the initialization file for the display 
program for the Petri net controller 1 .net 

Faster Socket Communication As it is now, a 200 ms delay is introduced by 
each token player in the virtual token ring chain. This is due to the UNIX 
scheduler which handles TCP/IP messages. The handler, or daemon, a 
turnaround time of 200ms. Other mechanisms exist that do not have this delay 
(raw sockets and datagrams), but these do not have the guaranteed delivery 1 

of messages that TCP/IP offers. 

Using GreatS PN Layers It would be possible to use the layer mechanisms of 
GreatS PN. One possible use would be to have the controller net in one layer 
and models of the devices in different layers. Simulations could then be per- 

m 

formed using GreatSPN or SPNP for the entire system, and the controller 
structure could be extracted for the distributed Petri controller implementa- 
tion. 

1 
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APPENDIX A 

4 C 4 SOURCE CODE LISTINGS 


A.l build — Building the controller 

#!/ bin/ ah 

# Use Bourne shell 
echo 

echo "Distributed Petri let Control System" 
echo 

# Teat if a net name h&a been passed aa an argument 
li [ $1 -ne 1 ] 

then 

echo "Usage: build <P«tri let Iame>" 
exit 
fi 

# Teat if this tile exits 

it C ! -f SHORE/ greatspa/nets/Sl. net ] 
then 

echo "Petri let Si does not exist** 
exit 
fi 

# Teat it hostnames tile exists , it not, prompt tor new tile 
it C -t hoatnamea ] 

then 

echo "Current hoatname assignments are : " 

cat hostnames 

echo 

echo "Hit <Return> to keep current assignments" 
echo "or eater new information at the prompt" 
echo 

else 

echo "Hostname file definitions does not exist" 
echo 
ti 

echo "Enter host information in the following format:" 

echo "0 name <Retura> /* For host 0 /*" 

echo "1 name <Retum> /* For host 1 /*•• 

echo " . " 

echo " • " 

echo "u name <Retum> /* For the last host /*" 

echo "<Retura> /* To stop or keep current values/*" 

echo 

hostnojsO 

echo "Hostname Shostno :" 
read inp 

if [ "Sinp" ! - "" ] 
then 

if C -f hostnames ] 
then 

ra hostnames 

fi 

fi 

until [ "Sinp" = ] 


c 'iivV.i r ~w 

O' POJK Qij.---.LMY 



do 

echo thostao tizxp » hostnames 
hostao ■‘expr Shostao ♦ 1* 
echo "Host fhootno : N 
read lap 
done 

it C ! m t lio ita«M« ] 
then 

echo ’'FATAL - hostname definition file does not exist" 

echo 

exit 

else 

id» 

echo "Current hostname assignments are : N 
cat hostnames 
•ciio 
f i 

# Convert .net file to .a file 
echo 

echo "Contorting .not file to .a file . .. M 
ec ho 

unset noclobber 

at toot. a tost .a* 

st tost.aot tost.aot* 

cp SHQHK/great spn/nets/Sl . aot tost.aot 

cat tost.aot 1 aot2as > tost .a 

ra net*.i 

• Assign placos aad transitions, goaorato aot definition files 
echo 

echo "Generating aot definition til os ..." 
assign 

t Cospilo XDisplay program 
echo 

echo ’'Compiling XDisplay sorter . . . 19 
make -f aid 

t Cospilo XCoamsad program 
echo 

echo "Compiling X Command client . . . 
sake -f mXc 

t Compile token players 
1=0 

thile C -f aet$i.h ] 
do 

echo 

echo "Compiling token player $i ..." 
rm play or. h 

echo "tiaclude V’aetfi .h\" M > player. h 

cat mast er. play or .h >> pla TT.h. 
make -f apn 
av pn pnSi 
i= 1 expr Si t i * 
done 
echo 
echo " 


done" 
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A.2 n«t2n_m — Extracting the Net Structure 

/*M**«M*«««***«**M*«*««MM«MMM JM ** , "*MM****«*** I *«***»***«** , ***M*\ 

* * 

* GS: A Generalized, stochastic petxi net Simulator * 

* 70.01 March. 1989 Andreas Yowatzyk (agndnnli.es. cm. edn) * 

* Caraegie-Melloa Uhiverity , School o f Computer Science * 

* Schenley Park, Pittsburgh, PA 1S213 * 

* * 

* MODIFIED 1/3/91 by Atle B janes to a. commodate inhibitor arcs of * 

* Multiplicity greater than 1. * 

* * 
\*M*<«M**«mt*<M*««***M*f*M*««M***«M*«****«4***««*«*«***«»«M*««*/ 

/* Converts Great SPY ’ s net-tiles into a more resonable format •/ 

# include <stdio ,h> 

Adefine TTY.IW! 0 /* transition types •/ 

#def ine TTT.E2P 1 

♦define TTT.DET 2 


char *txna .types C3] * {"inn 4 *, "exp" , ,# det M >; 



Data structures ********** 

! 

: 

8 

8 

• 

struct place { 


/* A place is. . . •/ 

char 

♦name; 


int 

token* r 


>; 

struct plac enlist { 


/* list of places */ 

struct place 

•pi: 

struct place.list 

•next; 



struct transition { 


/* A transition is... */ 

char 

•name; 


unsigned char 

«7P*; 


double 

rate; 


int 

d«p; 

/* enabling dependency •/ 

struct place. list 

•inpts; 


struct place.list 

•outpts ; 


struct place. list 

•inhibs ; 


>; 

struct parameter { 


/* parameters •/ 

char 

•name; 


double 

deflt ; 


>; 




struct place 

•PLACES ; 


int 

n.PL; 


struct transition 

•TOAISITIGIS ; 


int 

a. TO; 


struct parameter 

•RATES, •MARXS; 


int 

a.RT, a. MX; 


aaia(argc, argv) 


/* boring stuff •/ 

int arge ; 

char •argvQ ; 

< 

read.uet ( ) ; 
print .aet C) ; 
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> 

read.net () 

{ 

register int i, j; 

iat n.GR, k, 1, a; 

register struct place.list «t; 

char buf [1024] , tap [1024] ; 

while (gets (bar)) 

if (buf [0] *» »|* tk buf [l] *- 0) 
break; 


/s read a network «/ 


/* skip preamble */ 


if (! get a (buf) MS!* sscanf (buT , «r.*sXd%dXd%d%d- , tajtt, kn.PL, kn.RT, 
kn.TR, kn.GR) I I a JCK < 0 II n.PL < 1 M n.RT < 0 [ I n.TR < 1 
M n.GR < 0) err ("Bogus parameters") ; 

/* allocate storrage «/ 
if (n.KK) NARKS * (struct parameter *) 
aalloc(n_MK * sizeof (struct parameter)); 
if (n.RT) RATES * (struct parameter «) 
aalloc(u_RT * sizeof (struct parameter)); 

PLACES * (struct place •) aalloc(n.PL * sizeof (struct place)); 
TRAlsmOIS * (struct transit iom *) 

■alloc (a^TR * sizeof (struct transition) ) ; 

for (i * 0; i < aJflC; i++) { /* read Mark-parameters */ 

if ('gets (buf)) err (" Premature end of file"); 
if (2 !* sscanf(buf, "%sXlf" , tap, k(HARKS[i] .deflt) ) ) 
erx("Param problem"); 

strepy (NARKS [i] . name * (char •) salloc ( strlen(tmp) ♦ 1), tap); 

> 

for (i * 0; i < a.PL; i++) { /* read places •/ 

if (Igets(buf)) err( "Premature end of file"); 
if (2 !* sscanf(buf t "%sXd", tap, k(PLACES[i] . tokens) ) ) 
err ("Place def problem"); 

strepy ( PLACES Ci] .name * (char •) aalloc(strlen(tmp) + 1), tap); 

> 

for (i = 0; i < a_RT; i++) { /+ read rate-parameters •/ 

if (!gets(buf)) err ("Premature end of file"); 
if (2 ! * sscanf(buf p "XsXlf" , tap. k ( RATES Ci] .def It )) ) 
erx("Param problem"); 

strepy ( RATES [i] .name = (char «) aalloc(strlen(tmp) + 1), tap); 

> 

for (i = 0; i < a.GR; i++) /* skip groups •/ 

if (igets(buf)) err ("Premature end of file"); 

for (i = 0; i < a.TR; i++) {/* read transitions +/ 
if (Igets(buf)) erx( "Premature end of file"); 

if (5 !- sscanf (buf . " # /.sXlf %d%d%d" . tmp. k(TRAISITI0IS[i] -rate) , 
k (TRANSITIONS [i] . dep) , kk, kl) II 1 < l) 

arr( "Transition def problem"); 
switch (k) { 
case 0: 

TRANSITIONS [i] .type * TTY. EXP: 
break; 
case 1 : 

TRANSITIONS [i] . type * TTY. INK: 
break; 
case 127 : 

TRANSITIONS [i] .type = TTY.DET; 
if (TRANSITIONS [i] .rate < le-10) 



53 


wrr("0-dwlay , deterministic transition") ; 

TRAISITIOISCi] .ratw - 1.0 / TRAISITIOISCi] .rat*; 
break; 
dwlault : 

err ( "Unknown transition typo"); 

strepy (TRAISITIOISCi] .nano a (char «) aalloc (strl«n( tap) + 1), tap); 
TIUISITIOIS Ci] • inpts a 0; 

TRAISITIOIS Ci] • outpts a 0 ; 

TRAISITIOIS Ci3 . inkibs a 0; 

lor (j » i; j — : ) { /o read inputs */ 

il (!g«ts(bnl)) err ( "Pr waatur e end ol lilo"); 

il (3 ! * sscanl (bnl , "T.dXdXd", kk, kl. ta) II !k I I — 1 < 0 I I 1 
>« u_PL I I a < 0) 

wrr( "Transition input dsl problwa" ) ; 
il(k < 0) k = -k; 

while (k— ) { 

t a (struct placw.list •) aalloc ( sizwol (struct placw.list) ) ; 

t->pl a kPLACES Cl] ; 

t->nwxt a TIUISITIOIS Ci] . inpts ; 

TRAISITIOIS Ci] . inpts a t; 


wkilw (a — ) /* skip gwo-inlo */ 

il (Igwts(bul)) «rr("Prwonturw end ol lilo"); 


il ( !gwts(bul)) wrr("Pr«aaturw wad ol lilo"); 

il (1 !» sscanl (bul , d", kk) II k < 1) orr("TR output problem"); 

1 or (j a k; j — ;) { /• road outputs •/ 

il ( !gwts(bul ) ) wrr( "Prwaaturw wad ol lilo"); 

il (3 ! = sscanl (bul , "ydldXd", kk. kl. ta) It !k 1 1 —1 < 0 I I 1 
>a u_PL II a < 0) 

wrr( "Trans it ion output dwl problwa"); 
il(k < 0) k = -k: 

wbilw (k — ) { 

t = (struct placa.list •) aalloc (sizwoKstxuct placw.list) ) ; 

t->pl = kPLACES Cl] ; 

t->uwxt = TIUISITIOIS Ci] . outots ; 

TIUISITIOIS Cl] • outpts =t; 

> 

wkilw (a——) /* skip geo— inlo •/ 

il (! gets (bul)) wrr( "Prwaaturw and ol lilw“); 


il (Igwts(bul)) wrr("Prwaaturw wad ol lilo"); 

il (1 != sscanl (bul, "y.d" , kk) II k < 0) wrr("TR inhibt problwa"); 
lor (j = k; j — ;) { /* rwad inhibits •/ 

il ( !gwts(bul ) ) wrr("Prwaaturw and ol lilw"); 

il (3 != sscanl (bul, "V. dXdXd" , kk. kl, ta) II !k I I —1 < 0 II 1 
>= a_PL II a < 0) 

«rr( "Transit ion inhibit dwl problwa"); 

/- — M0DIFIC1TT0I IISERTED HERE -/ 
while (k — ) C 

t a (struct tlacw.Iist *) aalloc (sizwol( struct place list)); 

t->pl a kPLACES Cl] ; 

t->uwxt = TIUISITIOIS Ci] . inhibs ; 



TRAISXTIOIS Ci] • inkib# - t; 

> 

/• — BID OF XOOZFICATZOI 
ii 00 { 

t a (itnet place.list *) aalloc ( a izeol (struct place .list) ) ; 

t->pl » t PLACES Cl] ; 

t->next a TRA1SITI01S Ci] . inhibs ; 

1X113171013 Ci] . inbib s a t ; 

> 

•/ 

ebile (a — ) /* skip geo- ini o a/ 

if (!gets(bul)) err ("Prenature and ol til#*); > > 

> 

err<s) 

cbar •«; 

{ 

Iprintl (stderr, "XsSn" , s); 
erit(l) ; 


print _ arc Q /a print tke garbage- •/ 

r agist ar int i , j ; 

register struct place.list *t; 

lor (i » 0 ; i < a_NK; i++) 

print! ( "PABAN %s 7..10e;\n M . NARKS Ci] .JUM, NARKS Ci] .dellt) ; 
lor (i * 0; i < n_RT; i++) 

print! C'*?ARAN X* X.10e;\n", BATES Ci] .aaaie, RATES Ci] • dellt) ; 
lor (i * o; i < a_PL; i++) { 
j a PLACES Ci] .tokens; 
il (j < 0) { 

j a -1 - j; 
il Cj >a tt_NX) 

arr ("Narking paraaeter pro bias") ; 
print! ("PLACE Xs knarkss 7.s;\n M , PLACES Ci] ■ aaae , NARKS Cj] -naae) 
> else 

print! ("PLACE 7.s Saarks* Xd ; \a" , PLACES Ci] .naae, j); 

> 

lor (i a 0; i < a_TR; i++) C 

il (TRAlSITIOISCi] -rata < 0) i 
j a -o.S - TRAlSITIOISCi] .rata; 
il (j >* u_RT) 

arr ("Rata paraaeter problem"); 

printl ("THAIS 7.s 7.s rata* Xs , dep* 7.d : ", TRAlSITIOISCi] .name, 
trns.types CTRAlSITIOISCi] .type] , RATESCj] .aaaa, 

TRA1SITI01S Ci] • dap ) ; 

> else 

printl ("TRA1S 7.s 7,s rataa Xa, dep« Xd : ", TRAlSITIOISCi] .name, 
trns _ types CTRA1S ITI01S Ci] -type] , TRAlSITIOISCi] .rate, 

TRAlSITIOISCi] - dap); 

lor (t a TRAlSITIOISCi] .inpts ; t; t * t->next) 
printl ("‘4s ", t->pl->naae) ; 
lor (t a TRAlSITIOISCi] • inkibs; t; t a t->nere) 
printl (" !Xs ", t->pl->naae) ; 
printl (" — >*•); 

lor (t a TRAlSITIOISCi] .outpts; t; t a t->uaxt) 
print! (" 7.s" , t->pl->naae) ; 
print! ( ” ; \a“ ) ; 



> 


> 

print! ( H #end\n H ); 


A.3 assign — Place and Transition Assignment 

A.3.1 masgi Make file for assign 

## Make lile lor assign 

t# 

ts 

EXEC* assign 
t# 

t# -g = Debugging into 
## -0 s Qptiaizs 
CFLAGS* -g 
## 

*# Libraries 

t# 111 111 graphics library 
## 

LIBS* 

* 

* 

OBJECTS* assign. o \ 
syserr . o 

*# 

S# Cospile k link 

S* 

$(EXEC) : $( OBJECTS) 

cc S(CFUOS) -o S(SXEC) t (OBJECTS) S(LIBS) 

t# 

t# 

#S End ol sake lils 

ss 


A. 3. 2 assignee — ’C’ program Code 

t include <stdio.h> 
tinclude <string.h> 
tinclude "size^ limits .h M 
tinclude "dels.h" 

tdeline LQIGSIZE sizeol ( long ) * 8 
int longsize = LQIGSIZE; 

struct tr { /* — Holds into on transitions */ 

char nameC MATT.gr ] ; 
unsigned assigned : 1; 

*loat lirxng_rate; 
char typeC BAILEE ] ; 
int host; 

long LInputMaskC HAXTRAIS / LQIGSIZE + 1 ] ; 
long G Input Mask C HAXTEAIS / LOIGSIZE ♦ X ]; 
char in.depC MAXOE? ] C MAIL El ] ; 
char out.depC MAIDEP ] C MAXLEI j; 
char inhibit C MAXDEP ] C MAXLEI ] ; 

> TC HAXTEAIS ] ; 
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•tract pi { /* — Place info •/ 

char oaa«C MAZLE1 ] ; 
tnaignod aasigaed : 1; 
tnaignod global : 1; 
iat bore ; 
int narking; 

> PC HAZTEAIS ] ; 

a traci: boat a < /* — Hoat info •/ 

char SOSTIAKBC HAZLSM ] ; 
char CLIHOTAMEC BAILEE ] ; 
char SEEVEBIAMSC BAILEE ] ; 
iat LOCAL. XASX. SIZE; 
iat LOCAL.PLACES ; 
iat lO.TEAlSITIOIS; 

> HC BAIHOST ] ; 

iat GL0BAL.mSE.SI2E ; 
iat GLOBAL.PLACES ; 

loag GiapatMaakC MAXTKAIS / LOIGSIZE * 1 ]; 
long LiapatNaakC NAZTEAIS / LOIGSIZE >1 ] ; 

FILE «in_l, *boatt, •fopanO ; 

iat p.no, t.no, h._no; /• — Cooatars for placoa, traaaitiona k hosts. Baa 

tho * of reopoetiTs itsns «k«a readinfoO ia 
finished •/ 

iat aaaigaod.placoa 3 0 , aaaigaod.traaa 3 0; 

B00LEAB distributed 3 FALSE: 

/* 

•» raadiafoO 

mm 

mm R mads the input file and scans each line to dot amino if it is a 

mm transition or a place. The mlo is then assignod to the respective 

mm arrays T and P for each, element. Tho "hostname file is road and 

** tho info is placed in tho 3 array. 

•/ 

to id 

raadinf o() 

char buf C 1024 ] , tampC 1024 ] , tamp2[ 1024 3, tomp3[ 1024 ] , 
typoC 5 ] , *pi, *p2; 
char *strchr() , *strtok() ; 
int d_ao, inh.ao, i, j f nark, pos; 
float rate; 

p_ao * t_ao * 0; 

while ( fgets( buf, sizeof( buf ), in.f ) ) 

{ 

sscanfC buf, "%s M , temp ); 

it ( !strcao( temp, "PLACE" ) ) /* — PLACE info is road */ 

i 

sscanf ( buf, "%*sXaX*sXd" , temp, tmark ); /* — got aame k narking*/ 

f or( i*0; (PC p*ao 3 .aaao C i 3 3 tempC i 3 ) !» *\Q 9 ; i++ ); 

PC p_ao ] .narking * nark; 

PC p_ao 3 .assigned = 0; 

PC p_ao 3 .global = 0: 
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PC p_ao ] .host * -1; 
p_no++; 

« 1 <« if ( latrcapC t«ap, "T 3 UJS" ) ) /* — transition */ 

sacaniC but , M 7 .*sXa!CsX*sXf H f tsap, typo, hrat* ); 

/* — Got any bore assignaont */ 

TC t.ao ] .assigned 3 0; 
if ( strrchr( t«p, ) ) 

for( pos 3 0 ; t**pCpos] !« ; pos++) ; 

for ( i 3 pos + 1, j * 0; (t**p2C j] * taspC i 3 ) !* 'NO 1 ; 

j j • 

if ( sacanf( t«ap2» ,# %d M , k± ) !* -1 ) 

{ 

TC t.ao ] .bo ax 3 i; 

TC t.no ] .assigned 3 i; 

asaignsd.txans'M- ; 

> 

> 

stxcpy ( T[ t.no ].naa«, tsap ); 
if ( !Tt t.ao ]. assigned ) 

TC t.no ] .boat: 3 -i; 
atrcpy( TC t.no ].typ* t typ* ); 

TC t_ao ] ,firing_rat* 3 rats; 

/m — Got input d«p*nd*nci*s •/ 
pi = strchr( buf, * :» ); 
p2 = buf ; 
pos 3 pi - p 2; 

/* — Copy in dspsndsncy part 0 1 buf */ 

tor (i 3 pos > 1, j 3 0; ( tsmpCj] * bufCiJ ) !* i++, j++- ); 

t«pC j - 1 ] 3 >\Q> ; 

d.ao = 0; 
mh.no 3 0 ; 

strcpy( tsnp2, strtok( ts*p, '*”)); 

it ( pi 3 sxxchri t*mo2, * ! 1 ) ) /* — Inhibitor arc found •/ 

{ 

for (i = 1, j s 0; ( t*ap 3 Cj] = ta*p2Ci] ) !« , \0 J ; 

i**, j++) ; 

strcpy( TC t.ao ] . inhibit C inh.no ], t«ap 3 ); 
inh ao++; 

> 

sis* 

{ 

strcpy< TC t_ao ].in.d«pC d.no ], t«ap2 ); 
d_ao++; 

> 

for( ; C pi 3 strtokf TOLL, M " ) ) /* — Got rsst of inputs */ 

! 3 ’\ 0 '; ) 

{ 

strcpy( tsmp2, pi ); 

if C al 3 strchr( t*ap 2 , * !' ) ) /* — Inhibitor arc found 3/ 

{ 

for (i 3 l. j 3 0; ( csap 3 Cj] - t*ap2Ci] ) != '\0'; 

i++, j++); 

strcpy( TC t.ao J.inhibitC inh.no ], t#*p 3 ); 
mh.ao++; 

> 

slss 
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strcpy< T£ t.no ].in_depC d_no ], te*p2 ); 
d_mo++; 

> 

> 

/+ — Get ouput dependencies */ 
pi * strchr( but , *>> ); 
p2 * but; 
poi * pi - p2; 

/+ — Copy out dependency part of but */ 

tor (i * pos ♦ 1, j * 0; ( tempCj] * bulCi3 ) !• ' i++» ); 

tempt j 1 * * \0 ' ; 
d.no » 0; 

strcpy( TC t.no l.out.depC d.no ], strtok( tup, M w ) ); 
d.no++; 

for( ; ( pi * strtok( TOLL, M ,# ) ) 

!* 9 \0 • ; d.no++ ) 

strcpy( T£ t.ao ] . out.depC d.no ], pi ); 
t_no++; 

it ( t.no > XAXmiS I I p.ao > &AXTRAIS ) 

syserr( "Recompile vith larger MAXTROS constant'* ); 

> 

else /* — Input is tend */ 
close ( in_f ) ; 

> 

/* — Read in "hostname" file •/ 
h.no = 0; 

•bile ( fgets (but, sizeof( but ) , hostf ) ) 

{ 

tempC 0 ] * *\0 J ; 

secant ( but, "ISdXa", th.no, temp ); 
strcpy( IC h_no ] .HQSTOAHE, temp ); 
h.ao++; 

> 

close ( boat t ) ; 


/* 

«* assignO 

mm 

mm The places and transitions are assigned to the hosts by this procedure 

•* by successively looking at each place to count # of dependecies 

mm to already assigned (preassigned) transitions. If there is one 

** dependency, the place is local, if there is more than one, the place 

** is global . 

mm 

mm The unassigned transitions are then checked to see how many dependent 

» cies it has on each host. The transition is placed at the highes 

mm host count. 

mm 

» The above tuo steps are repeated until all places t transitions are 

mm assigned to a host. 

•/ 

void assignO 

char buft 1024 ], teapC 1024 ]; 

int host .count C &AXH0ST ]; /+ — Count # of references to host */ 

int p, t, tmp, i, ao.dep; 

B00LEAI done* * FALSE; 

for ( i 3 0; i < h.no; i++ ) host. count C i ] « 0; 
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uhlle C ldone ) 

< 

/* — For each place, see 11 it is tree, U so, count # ol dependencies 
on oach host and assign it to host vith highsst count */ 
lor C p * 0; p < p_no; p++ ) 

il^( ! P C p 3. assigned ) 

lor ( t * 0; t < t.no; t++ ) /* — For all transitions */ 

{ 

il ( TC t ]. assigned ) 

/* — Chock il p is an input dopondoncy */ 
tor ( i » 0; strcap ( T [ t ].in.dop[ i 3, ,#i# ); i++ ) 
il ( ‘strcap ( PC p 3 .name, TC t ],in_depC i ] ) ) 
host, count C TC t 3 .host ]+-►; 

/* — Chock il p is an output dopondoncy */ 
tor ( i a 0; strcap ( T [ t ] .out.depC i 3, ); i++ ) 

il ( ! strcap ( PC p ].aaao, TC t ].out.dep[ i j ) ) 
host.countC TC t ].host 3++: 

/+ — Chock il p is an inhibitor dopondoncy */ 
tor ( i * 0; strcap ( T C t 3. inhibit C i ] . ,#M ); i++ ) 
il ( ! strcap ( PC p 3 .name, TC t ]. inhibit C i j ) ) 
host.countC TC t ]. host 1++; 

y 

y 

/* — Count # ol occurroncos ol each transition to place tho 
placo at tho host vith tho aost dopondocios */ 
no_dep a 0; 
tap a 0 ; 

lor ( i * 0; i < h^no; i+* ) 

{ 

il ( host. count C i 3 > 0 ) 

{ 

ao.dep**; 
tap = i; 

> 

host. count C i ] = 0; 

> 

svitch C no.dop ) /* — Chock il placo is a dopendont ol . . •/ 

caso 0 : /* — 0 transitions -> tree placo */ 

break; 

caso 1 : /« — Transitions on 1 host -> local place */ 

PC p 3 .host = tap; 
ass i gned. places*-*- ; 

P C p 3 .assigned a 1 ; 

break; 

dolault : / * — Transitions on > 1 hosts -> global */ 

P C p 3 . global a 1 ; 

PC P 3 .host 3 -1 ; 

assign ed.placas** ■ 

PC p 3. assigned * i; > > > 

/* — For each transtion, chock il it assigned, il not, count * ol 

dopondocios and assign it to tho host vith tho highest count */ 
tor ( t a 0; t < t.no; t++ ) 
i 

il ( ! T C t ]. assigned ) 

i 

/* — For each input dependency, count t ol occurrences on host*/ 
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lor ( p » 0; strop ( TC t ] • ia_4ep C p 3 * "" ) » P** 5 
lor ( t * 0; t < p_a»; i** ) , , . . 

i 1 ( ! strop ( TC t 1 . in.dapC p 3. PC i ) ) 

il ( PC i 3. assigned U PCi3 .host >- 0 ) 
host. count C PC i 3 .host ]++; 

/* — For each output dependency, count * ol tines ou host •/ 
lor ( p * 0; strop ( TC t 3.our.depC p 3, "" )l P+* ) 
lor ( i * 0; i < p.no; i++ ) 

il ( ! strop ( TC t 3-out.depC p 3 , PC i 3 .asm ) ) 
il ( PC i 3 .assigned tt PCi3 .host >■ 0 ) 
host.countC PC i 3 .host 3++; 

/• — for such inhibitor dependency, count * ol tinos on host */ 
lor ( p * 0; strop ( TC t J.inhibitC p 3. "" ): P++ ) 
lor ( i * 0; i < p_ao ; i++ ) 

il ( '.strop ( TC t 3. inhibit C p 3. PC i 3 .nane ) ) 
il ( PC i 3 .assigned tt PCi3.host >« 0 ) 
host.countC PC i 3 -host 3++; 


tap * 0; 

lor ( i ■ 0; i < h_no; i++ ) 

< 

il ( host.countC i 3 > tap ) 
tap * i; 

host.countC i 3 * 0; 

> 

TC t 3 .host * tap; 

TC t 3. assigned « 1; 
assigned_trans++ ; 

> 

il ( ( assign ed.places >* p_no ) tt (assigned. trans >* t.ao ) ) 
dona a TRUE; 


lill.hostQ 

Tho Sdolino statoonts lor aach toksn player is ganaratad in this 
procedure by counting S ol local and global places and s ol 
transitions at aach host. 

The token ring succession is detexaiaed and the CLXEITXAME and 
SE&VERIAMEs are assigned. 

void lill_host() 

< 

int i, j; 

lor ( i * 0 ; i < k m; i++ ) /* — Count * ol places fe trans « host i */ 

< 

lor ( j s 0; j < t.ao; j++ ) 
il ( TC j 3 .host » i ) 

BC i ] .30_nU*SITI0*S++; 

lor ( j * 0; j < p.ao; ) 
il ( PC j 3 .host as i ) 

HC i 3 ■ L0CAL.PLACES++ ; 




I 
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ac i 3 .L0CAL.1USX.SIZE * HC i 3 .L0C1L.PUCSS / 

longs iz a > 1; 


<or ( i a 0; i < p_no; !+■► ) /* — Count t oi global placas •/ 

il ( PC i 3. global ) 

GLOBAL. PLACES 

GLOB AL.MASX. SIZE a GLOBAL.PLACES / longs iz a + 1; 

for ( i a i; i < h_ao; i++ ) /* — Assign hosts anas a/ 

{ 

strcpy< HC i 3 .SERVERIAMB, XC i - 1 3 .HOSTXAHR ); 
strcpy( hc i - i ] .cuErniMK, at i 3 .aosnuiB ); 

> 

strcpy( aC o 3 . SERVER! AHE, HC b_no - 1 3 .HQSTIAJCE ); 
strcpy( BC h.ao - l 3 .CLIEBTBAHE, BC 0 ] . HOST! AHE ); 


arita.dalsO 

Tbs indorsation ganoratad by 1 ill Just O is axittan to tha aat<i> .h 
daiiaition lilsa lor compilation ol tokan playars. 

/ 


▼o id 

arita.dalsO 

int i; 
char e; 

ckar 1 C 100 ] ; 
int t.coont, t, h; 

FILE *lp, *lopan() ; 

/* — Writs initialization lor ICoaaa&d eliant */ 
sprintK 1, "ICoanand. i" ); 
il ( ( Ip a lopan( 1, ) ) a» mu. ) 

aysarr( "lopan XCouumd. i" ); 

Iprintl ( Ip , "ZdXn" , h.ao ) ; 
lor ( i = 0; i < h.ao; i++ ) 

Iprintl ( Ip, "Zs\ a* 4 , HC i 3 .HOSTIAME ); 

Iprintl ( Ip, "Zs\n", HC 0 3.H0ST1AJ!E ); 
closa( Ip ) ; 

/* — Writs initialization lor XDisplay sartor */ 
sprintK 1, "XDisplay . i" ); 
il ( ( Ip a lopaa( 1, V ) ) aa TOLL ) 
sysarr( "arita XDisplay. i" ); 

/* — Print * ol tokan playars •/ 

Iprintl ( Ip , "Zd " , h.ao ) ; 

/* — Print Z ol global placas ■/ 

Iprintl ( Ip, "Zd M , GLOBAL.PLACES ); 

Iprintl ( Ip, "Zd ", p.no ); 

Iprintl ( Ip, "Zd\n", t.ao ); 
lor ( i * 0; i < h.ao; i++ ) 

Iprintl ( Ip, "Zs ", HC i 3. HOST! AHE ); 

Iprintl ( ip, "Zd Zd\n" . HC i 3 . LOCAL.PLACES , HC i 3 .lO.TRAISITIOHS ); 
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> 

lor ( i » 0; i < p_no; i++ ) 

Ipristl ( Ip, '•%* %d\s" , PC i ].naao, PC i ] .hoot ); 
lor ( i » 0; i < t_ao; i+* ) 

lpristl( Ip, "fa Xd\s", TC i 3.sa«o, TC i 3 .host ); 


/* — loro - ssko roos lor isk. 
closo( Ip ) ; 


arcs 


/* — Writ* sot<i> .1 do! isitios liloo lor coapilacion ol tokos playors */ 
lor ( i a 0; i < h_so; i++ ) 

{ 

sprlstK 1, "3sot%d.h" , i ); 
il ( ( Ip a lopoa( 1, "tr" ) ) *■ TOLL ) 
sys«rr( "lop on'* ) ; 

Ipristl ( ip, "Sdolino\traSTIAIIE\t\"y.s\"\n*\ HC i ] .HOSTIAME ); 
lpristl( Ip, "*doliso\tHOSTIQ\t%d\a H , i ); 

Ipristl ( Ip, "*doliso\tIO_HOSTS\tXd\s*\ h_so ); 

Ipristl ( Ip, H *doliao\tCLIEITlAJlE\t\ n %s\ M \B M , IC i ].CLIEinilCE ); 

"*doliso\tSE&VEBHAIfE\t\ M fo\ H \& M , HC i ] .SEB.VERIAXE ); 
"'•doliso\tHOSTOIU!B\t\"%s\ , '\s" , HC 0 ] . HOSTOAHE ); 
"«dollsa\tLOCAL_PLACES\tXd\s N , HC i ] ,LOCAL_PLACES ); 
"Sdolino\tHO_THJUISmOIS\tXd\s M , EC i ] .IQ.TRAISITCOIS ); 
"•doliso\tLOClL_IUSX_SIZS\tXd\s M , HC i 3 .LOCAL.NiSX.SIZE ); 
n «dollso\tGLOBAL.PLlCZS\tXd\s M , GLOBAL.PLACSS ); 

Ipristl ( Ip, "#doiiso\tGL0BAL_MASX_SI2E\t1Cd\s*\ GLOBAL JUSX.SXZE ); 
spristl ( 1, '•uotXd.i" , i ); 

••Sdoliso\tIETFILE\t\-y.a\"\s M . 1 ); 

'•tr_lisks!id. i" , i ) ; 

•*»doliso\tUIHnLE\t\"y^\"\s-, 1 ); 

"istorlacoXd. i" , i ); 

••«doliso\tORI7HBFILE\t\"1U\"\s-, 1 ) : 


Ipristl ( Ip, 
Ipristl ( Ip, 
Ipristl ( Ip, 
Ipristl ( Ip, 
Ipristl ( Ip, 
Ipristl ( Ip, 


Ipristl ( Ip, 
spristl ( 1 , 

Ipristl ( Ip, 
spristl ( 1 , 

Ipristl ( Ip, 
il ( i »■ o ) 

Ipristl ( Ip , • , *doliso\tH0ST0\tl\s" 
clooo( Ip ) ; 


); 


I 


1 


/* — Vnta taaaa<i>.h dafiaixioa filaa for obxaiaiag xha aunbar of aach 

xraaaixioa ax aach hoax — will raplaca all aoalaxxar aad digita vith 
.AT. for a, .IS. for ?, aad .OUT. for !. All oxhar characxara ara 
raplacad aixh .. Tina aakaa xha fdafiaa aanaa lagal ia *C* */ 

for ( h = 0 ; h < h.ao; h++ ) 

{ 

spraaxl ( f , , *xaaaa , /od.h w , h ) ; 

ii ( ( fp « fopan( f , "r* ) ) == HULL ) m 

aya arr*( "fopan 4 * ) ; 
x.couax = 0; 

for ( X * 0; X < x.ao; X++ ) 

i 

if CTCx] .hoax == h) 

{ 

fpriaxf ( fp, ”adaf iaoXx'*) ; 

for (i - Q; (c = T[x] .aaaaCi] ) !- 'NO'; i++) 

{ 

il ((c >« '0' II e <3 '90 il (c >* *a J t* c <= * 2 ') II J 

Cc >» * A 1 tt c <= »2’)) 
fpuxc(c, fp); 

alaa 

swixch (c) 

i 


1 



> 


> 


eu« : ipria-eiCip, 

case : ipriati (ip, 

case ’ !' : ipriati (ip, 

deiaalt : ipriati (ip, 


> 


spriatK i, t_coaat++ 

ipriati ( ip, ,, \tX*\a'\ i) ; 


> 

cloae( ip ) ; 


); 


"_AT.«) ; break; 
break; 

"_tJOT~); break; 
break; 


/* 



** 

*« 


vrita_inits() 

Tha initialization coda (in *C * ) is ganaratad as includa lilas lor 
•ack tokan playar. Tha axtandad incidanca matrix is ganaratad, 
assigning to sack transition tha input and o ut put arcs, Tha 
local narking vactor is ganaratad and lor SOSTO tokan playar, 
tha global narking factor is initial izad as vail. 


*/ 


▼o id 

writa_initsO 

< 

int i, j , k, p, t, h, llag; 

char tampC 1024 ], buiC 1024 ], 1 C 100 ]; 

FILS *tp, •topanQ ; 


/+ — Initial iza all nasks */ 
lor ( t a 0; t < t_ao; t++ ) 

lor C j * 0; j < (int) NA2TS1XS / longs iza + 1; j++ ) 

T C t ] . GInputMask C j ] 3 0 ; 

T[ t ] .LInputMaskC j ] 3 0; 

GinputMaskC j ] 3 0 ; 

LinputMaskC j ] 3 0; 

> 

> 

/* — For each host, make includa lila nat<n>.i lor init.c */ 
lor ( k 3 0; h < h.no; k++ ) 

{ 

sprintl ( 1, "nat'/ed.i” , k ); 
il ( ( Ip a !opan( 1, w v* ) ) *s TOLL ) 
sysarr( "lopan 1 * ); 

/* — For eack transition, iaitializa input incidanca matrix •/ 

t 3 0; 

lor ( i 3 0; i < t_oo ; i++ ) 

{ 

il ( TC i ] .kost =» k ) 

{ 

lprintl( Ip, ,# strcpy( TransitionC %d ]*tag, \"%a\** ) ; \a" , 
t, TC i ] -name ) ; 

ipr^a.ti( ip, “TransitioaC td ] .iiriag_rate * 'Ll ; \n“ , 
t, TC i ] . i iriag_r«e ); 
ii ( !strcsp( TC i l.typs, ) ) 
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fpriatf ( fp, ’•Transit ion. C Xd ] .inaediate » l;\a", t ); 
if ( ! stxcap( TC i ].type, "dot" ) ) 

fpriatf ( fp , "Transition [ Xd ] .timed » l;\n", t ); 

/• — Check each input dependency to generate LInputVector •/ 

p * 0; 

for C j * 0; j < p_no; ) 

if ( P C j ] .host ** h ) 

for ( k * 0; s t r cm p( TC i 3.ia_depC k ], ); k++ ) 

if C !strcap( PC j ] .nan* , TC i ].in_depC k 1 ) ) 

fpriatf ( fp, 

"Transition Did] . LInputVector CXd] ++ ; \a" , t , p ) ; 

TC i ] -LlnputMaskC (iat) ( p / longsiza ) 1 

I a ( 1 « P ): 

> 

> 

> 

/* — Writ* mask to fila •/ 

for ( j * 0; j <» ( iat )( p / longs iae ); j++ ) 

fpriatf ( fp, "TTansitioaC Xd ] .LlnputMaskC Xd ] a 0xXx;\n H , 
t, j, TC i ] .LlnputMaskC j 1 ); 

/* — Chock each output dependency to generate LQutput Vector */ 

p a 0; 

for ( j a 0; j < p_no; ) 

{ 

if ( PC j ] .hoot a« i ) 

< 

for ( k * o; s t r ca p( TC i ].ou*_depC k ], "" ) r k*-* ) 
if ( !s trcmp ( PC j ] .name, TC i J.out.depC k. ] ) ) 

i 

fpriatf ( fp, 

"Tran* it ion CXd] . LQutput Voct or CXd]-M>;\a M , t, p ); 

> 

?++; 

y 

y 

/* — Chock oach inhibit dependency to generate Llahibit Vector •/ 
flag a 0; 

P a 0; 

for C j 3 0; j < p_ao; ) 

{ 

if ( PC j ] .host aa i ) 

{ 

for ( k = 0; strcap( TC i ] . inhibit C k ] , ■••• ); k++ ) 
if ( tstrcapC PC j ].name, TC i ]. inhibit C k ] ) ) 

C 

fpriatf ( fp, 

"Transition CXd] . Llahibit Vector CXd] ++ ; \n" , t , p ) ; 
flag a 1 ; 

> 

P++: 

> 

> 

if ( flag ) 

fpriatf ( fp, “TransitioaC Xd ] . I.InhArc a i;\n“, t ); 

/* — Generate global input vector */ 
flag a 0; 


I 


1 


i 


I 
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p » 0; 

tor ( j » 0; j < p_ao; j++ ) 



f or C k * 0; strcapC TC i 3.in_d«pC k ], M " ); k++ ) 
if ( ! straapC PC j ].un, TC i ] . in_dapC k ] ) ) 

fprintfC Ip, 

''Transition CXd] . Glnputfact or CCd3++:\n H , t, p ); 

TC i ] .GlnputMaskC (int) ( p / longs ina ) ] 

1 3 ( 1 « p ); 

flag a 1; 

> 

p++; 

> 

> 

/* — Vrita mask to fila »/ 

for ( j » 0; j <s ( int )( p / longsizo ); j++ ) 

fprintfC fp, "Transit ion C Xd ] . G Input Mask C %d ] a 0rXx;\n", 
t, j, TC i ] .GlnputMaskC j 3 ); 

if ( flag ) 

fprintfC fp, "Transition C Xd ].glob_in * l;\n", t. ); 

/* — Ganarata global output Tact or •/ 
flag a 0; 
p a 0; 

for ( j a 0; j < p_ao; ) 

if ( PC j ]. global ) 

for ( k = 0; strcapC TC i ] - out_dapC k ], "■* ); kt+ ) 
if ( ! strcnpC PC j ].na«s, TC i ].out_4apC k ] ) ) 

C 

fprintfC fp, 

"Transition CXd] . GOutput factor C%d3 +-► ; \n“ , t , p ) ; 
flag » 1; 

> 

P ++ : 

> 

> 

if C flag ) 

fprintfC fp, "Transition C Xd ].glob_out a l;\n“ , t ); 

/* — Ganarata global inbibitor vactor */ 
flag = 0; 

p = 0; 

for(j=0;j< o_ao; ) 

< 

if ( PC J ]. global ) 

C 

for C k = 0; strcapC TC i ] . inhibit C k ], "" ); k++ ) 
if C IstrcaoC PC j ].na«a, TC i ].inb.ibitC k ] ) ) 

< 

fprintfC fp, 

"Trans it ion C7^U .GInkibitfactorCCd3+^;\n" , t, p ); 
flag = 1 ; 

> 

> 

"l 

J 

( 

1 


tlag ) 
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fprintf( fp, "TransitionC Xd 3 . GInlArc * l;\n", t ); 
fprintf( fp, "TransitionC Xd ] .glob. in 3 l;\n**, t ); 

t++; /* — Increment trass, counter for tills lost •/ 


> 


> 

/* — Generate local narking yector •/ 


p ■ 0; 

tor ( j * 0; j < p.no; j++ ) 

< 

it ( PC j 3 .lost 1 ) 

fprintf ( Ip, "strcpy( LocalHarkingV . tag [ Xd 3. \ H Xa\“ );\n“, 
p, PC j 3 .aaae ) ; 
if ( PC j 3 .aarking ) 

< 

LinputMaskC (int) ( p / longsizo ) 3 

1* ( 1 « p ); 

iprintK ip, "LocalMarkingV . narking C Xd 3 3 Xd;\n“, p, 
PC j 3 .aarking ); 


> 


P*+J 

> 

> 

/* — Writs LocalMarkingV mask •/ 

for ( j 3 0; j < (int) ( p / longsizo ♦ 1 ) ; j++ ) 

fprintK fp, "LocalMarkingV. LinputMaskC Xd 3 * 0xXx;\n" , j, 

LinputMaskC j 3 ): 

/* — If tlis is H0ST0, initialize global a a rkin g vector •/ 
il ( 1 *• 0 ) 

{ 

p 3 0; 

for ( j 3 0; j < p.no; j+-*- ) 

< 

if ( PC j 3- global ) 

< 

fprintf( ip, "strcpyC GlobalMarkingV . tagC Xd 3, \"Xs\“ );\n", 
p , PC J 3 • naao ) ; 
if C ?C J 3 -marking ) 

< 

GinputMaskC (int) ( p / longsizo ) 3 

I* C i « ? ) : 

iprintK ip, "GlobalMarkingV. aarking C Xd 3 3 Xd;\n**, p, 
PC j 3 .marking ); 

> 


?**■ 

> 

> 

/• — Writs gav mask •/ 

for ( j 3 0; j < (int) ( p / longsizo + 1 ); j++ ) 

fprintf( ip, "GlobalMarkingV . (J input Mask C Xd 3 3 0xXz;\n“, 
j , G input Mask C j 3 ) ; 

fprintf( ip, "GlobalMarkingV. GM.av = 1; \n" ); 
iprintK ip, "GlobalMarkingV. update = 0;\n“ ) ; 

> 

slss /• — Initialize tags only «/ 

C 

p 3 0; 

ior ( j 3 0; j < P- a °! j*~* ) 

{ 

if ( PC j 3 -global ) 


I 


1 


l 


1 
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> 


> 


> 


< 

> 


Ipriatf ( fp, "strcpyC GlobalMarkiagT . tag [ %d ], \"%s\" ) ;\a H . 
p, PC j ] .aaae ) ; 


fpriatl ( tp , H <a.obalMarkiagV . GX.ar = o ; \a" ) ; 
fpriatl ( tp, "GlobalMarkiagV. update a 0 ; \a" ); 

dose ( tp ) : 


saia(argc, argv) /* — Reads the aet iato ia tie tile given to aaia and 

distributes tie places aad traasitions across tie 
dittereat aets oa tie hosts ia tie "hostaaae" tile «/ 

iat arge; 
char « argv; 

i 

char aaaeClOO] ; 

it ( ( ia_f a fopea("test.a M , ”r" ) ) == -1 ) 
syserr( "open ia_t M ) ; 

if ( ( iostt » fopeaChostaaaes", **r‘* ) ) ==* -1 ) 
syserr( "opea iostaaues’' ) ; 


readialoO ; 
assigaO; 

fill.iostO ; 
write_defs() ; 
write_iaits() ; 


/« — Read ia aet iato aad put ia P, T aad H arrays •/ 
/* — Assign traasitioas aad places to hosts •/ 

/• — (Jet host aaaes aad assiga server aad dieat names 
/* — Vrite aet<a>.h iaclude files */ 

/* — Vrite aet<a> . i aet del iaitiou files */ 


*/ 


A.4 pnn — Token Player Implementation 


A.4.1 mpn: Make file for pnn 


t* 

## 

** 

EXEC* 

## 

tt 

## 

CFLAGS* 

** 

K 

## 

## 

LIBS* -1 
# 
t 

OBJECTS <3 


pn 


-s 

-0 


Debugging info 
Optimize 

-s 


Libraries 

111 


111 graphics library 


\ 


player. c 
syserr . o 
setblock. o 
server^intr . o 
intr.tiaer .o 
client. o 
t iaed_ trans _handl er 
timer . o 


\ 
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xrand.o 

\ 


event .handler . c 

\ 

•# 

init.net, c 
dump, c 

\ 

•# 

•* 

Compile * link 


•(EXEC): 

•(OBJECTS) 


•* 

•# 

cc $<CFLAGS) -o 

*<S2BC) $ (OBJECTS) 

•# 

•# 

Sad of make file 



A, 4.2 master- play er.h — Data Structure Definition File 


•include '•size.limits .h" 

•define EXTEHIAL.IO 1 

•define GHV.LIXIT IC.TBAISITIOIS+IO 
•define Ta.LUUT IQ.TRAISITiaiS 


/* — Contains maxim im sizes */ 

/* — Defined when the DP9C u sms a socket 
for communication uith a device 
driver program */ 

/* — lumbar of it arations of the token 
playar bafora releasing the gmv »/ 

/* — lumbar of fired transitions before 
sending the firing sequence to the 
XDisplay server (defines update 
rata) •/ 


•define LOIGSIZE sizeofC long ) * 8 /* - l of bytes In a long int •/ 

•define MASK.BU7SXZS GLOBAL JUSX.SIZE /* — Sine of mask for global m.v. mask*/ 
•define GKV.BUFSIZE 1 ♦ HASX.BUFSIZB > GLOBAL.PLACES /« — Size of gmv buf*/ 

•define lO.BTrES ( sizeof ( long ) • GMV.3UFSI2E ) /* — • of bytes in 

gmv buffer •/ 


/••define DEBUG 1 

•/ /* — 

Print general info */ 


•define DEBUG1 1 

/* — 

Print tr 

ansition fixed •/ 


•define DEBUG! 1 

/• — 

Print timed 

transitions duration */ 


struct trans { 

/* — 

The struct f 

or the transition info. 

*/ 

unsigned 


firing 


1; 

/• 

— Currently firing 


unsigned 


fire 


1; 

/* 

— Fire (timed) 


unsigned 


glob. in 


1; 

/* 

— Input from global a.*/. 

•/ 

unsigned 


glob.out 


1 ; 

/* 

— Output to global m.v. 

«/ 

unsigned 


LInhArc 


i; 

/* 

— Local ink. arc 

•/ 

unsigned 


GInhArc 


l; 

/• 

— Global ink. arc 

•/ 

unsigned 


immediate 


1; 

/• 

— Immediate transition 

•/ 

unsigned 


tiaed 


l; 

/• 

— Exponentially timed tr. 

-/ 

unsigned 


nr e conditions 

i; 

/• 

— Set if preconditions 







exist (procedure) */ 


unsigned 


postprocessing 

: l ; 

/• 

— Set if postproc. is 








to be done (procedure 
call) */ 


unsigned 

long 

end. time ; 



/• 

— The expiration time of 
the timer for timed tr 

.*/ 

float 

iiriag 

.rate; 



/• 

— Firing rate for timed or 






deterministic tr. 

-/ 

int 

(•preprocess) (); 



/- 

— Procedure to be called 



to see if transition is 
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•aabled. Return i tn« if 
conditions are ok «/ 


>; 


iat (•porcprocessX) ; 

vhen transition tiros •/ 

char tagQCAXLEI] ; 

long LInputJfask [LQCAL.HASX.SIZE] ; 

long GlnputMask [GLOBAL .HASX.SIZE] ; 

short Llnput Vector CLOCAL.PLACES] ; 

short LOutput Vector CLOCAL.PLACES] ; 

short GInput Vector [GLOBAL.PLACES] ; 

short G Output Vect or [GLOBAL. PLACES] ; 

short LlnhibitVector [LOCAL. PLACES] ; 

short GTnh ibit Vector CLOCAL.PLACES] ; 


/• — Procsdurs to bs called 


/• 

/• 

/• 

/• 


of transition 

— Local mask •/ 

— Global mask •/ 

Input incidsncs matrix •/ 


•/ 


/•Output inc. matrix •/ 

/• Input incid. matrix •/ 

/•Output inc. matrix */ 
/• Inhibitor arc mult. •/ 
/• Inhibitor axe mult. */ 


struct LocalXV { /* — ths struct for ths local marking vector •/ 

short marking CLOCAL.PLACES] ; /• — Harking of local places*/ 

long LinputMask [LOCAL. BASX.SXZE] ; /• — Local mask */ 

char tag CLOCAL.PLACES] QlAZLSV] ; /• — Tag to ba printed •/ 


>; 

struct GlobalHV 
unsigned 
unsigned 
long 
short 
short 
char 

places 

>; 


/• — The struct for the global 
update : 1; /• — Set if 

GX.av si; /• — Set if 

GinputMaskC GLOBAL JUSX.SXZZ] ; 
marking [GLOBAL.PLACES] ; 
old ([GLOBAL. PLACES] ; 
tag [GLOBAL.PLACES] CXAXLEI] ; 

•/ 


marking vector •/ 

update necs. •/ 

GX available */ 

/• — Global mask •/ 

/* — temporary marking •/ 
/• — temporary storage */ 
/* — Tag for local 


enum comd.type { RUB, HALT, RESET. STOP }; 


A.4.3 defs.h — Macro Definitions 

typedef enum { FALSE, TRUE > BOOLEAI ; 

Adefine loubyte(w) ((w) k 0377) 

Adefine highbyte(u) loebyte(O) » 3) 


A. 4.4 sizcjimits.h — Sizes of Data Structures 


Adefine HAXDEP SO /« — 
Adefine BAXHQST 10 /* — 
Adefine BAXTRAIS 200 /* — 
Adefine MAXLEI 30 /* ~ 


A of dependencies of each transition */ 
Max A of hosts •/ 

Bax A of transitions/placss in net «/ 
Bax string length for any name */ 


Adefine HAXPR0CESS 4 


/• — maximum number of processes forked that 
must be killed before exiting m ain Q •/ 


A. 4.5 portnums.h — Socket Port Numbers 


Adefine PLAYERP0RT 1S00 
Adefine CQHMA1DP0RT 2S00 
Adefine OISPLAYPORT 3S00 
Adefine I0P0RT 4500 
Adefine 0FFSE71 50 
Adefine OFF SETT 75 


/• — Port number for token ring sockets •/ 
/* — Port number for command sockets »/ 

/• — Port number for display sockets •/ 

/• — Port number for i/o vith device driver 
/• — Offset for simulator 1 •/ 

/• — Offset for simulator 2 •/ 


•/ 
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A.4.6 player. c — Token Player Routines and mainO 

♦include <sys/types.h> 

♦include <sy s /socket .h> 

♦include Oittiait/ In . h> 

♦include <netdb . h> 

♦include <stdio.h> 

♦include <fcatl.h> 

♦include < ern o .h> 

♦include <signal.h> 

♦include "portnums . h" 

♦include "player, h" 

♦include "sime.Hmita.h- 
♦include "defs.h" 


extern BQOLEAI single. step; 
extern BQOLEAI event .flag; 

struct traaa Trane it ion QlO .TRAISXTIOIS ] ; /* — Array of transitions */ 

struct LocalMV LocalMarkingV; /• — The local n a rki ng v. */ 
struct GlobalHV GlobalHarkingV ; /* — The global m.v. ♦/ 


int 

int 

int 

int 

int 

int 

enun 


longsize * LQIGSI2B; 

token. in; /* — File descriptors for use to receive and send */ 

token.out; /» the token vector •/ 

out .X. via; /* — File descriptor for writing info to the 

X window for this player */ 

command. in; /* — File descriptor for command socket. */ 

io. socket; /* File descriptor used for receiving and sending 

external event info «/ 

comd.type conand; /* — Type for possible cn—anri nodes of player •/ 


/* 


fire.tined.transitionO 

** 

« Fires a timed transition, 

•/ 


f ire.tined.transition( tr.no ) 

int tr.no; /* — Holds the integer * transition »/ 

int (*exec) (); /* — A temporary pointer to the address of the 

procedure to be called. */ 

♦ifdef DEBUG 1 

printf( "\aXs fired timed ", TransitionCtr.no] .tag ); 

♦endif 

remove. tokeasC tr.no ) ; 

if ( TransitionC tr.no ]. postprocessing ) 

{ * 

exec 3 TransitionC tr.no ]. postprocess; /* — Assign address 

to exec */ 

(*exec) ( tr no ) ; /* — Call orocedure •/ 

> 

add. tokens ( tr.no ) ; 
update. Xwindov( tr.no, 1 ); 
event. flag * TRUE; 
if ( single step ) command = RUB; 

> 

/* 


token.playerO 
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*« 

M 

** 


** 


*« 


*« 


*/ 


i* cal l ed vha an ivttt occurs (ROT , external «mt, timed transition 
•nablod or the gar is available. 

The player will ran until 

a, lo more transitions fixe, or 
b. a command different than ROT is received. 

The global n a rkin g vector is kept for GXV.LIMIT * of iterations until 
it is released to the netx token player. 

Vben no more transitions fire and the node is ROT, blocking is 
turned on for the eveatpipe so that the token player vill not be 
invoked again until an event occurs. This makes the token player 
event driven. 

Vhen a transition is enabled, it fires if it is an immediate 

transition. Timed transitions are fired later (if still enabled) . 


void 

token^playerO 

int tr.cnt * 1; /* — Counter for transitions */ 

int tr; 

vhile ( ( ( tr * get .next .transit ion ( ) ) !* -1 ) tt ( command ** ROT ) ) 


get.eventQ ; 
if ( enable ( tr ) ) 
fire( tr ); /♦ — 

if^( GlobalXarkingV’. GX.av ) 

tr.cat i; 

if ( tr.cnt > GHV.LIHIT ) 

{ 

release_gmv() ; 

tr.cnt = i ; > > > 

if ( command == ROT ) 

release.gav() ; 


/* — lay nev event ? */ 

Fire transition tr */ 

/* — GMV.LIKIT iterations done */ 

/* — Release gmv to next token pi.*/ 

/* — Release gmv vhen no other 
transisiton can fire */ 


/* 




•/ 


fire() 

fire vill call procedure for immediate or timed transitions (if any). 
If the transition has a procedure and is immediate, this procedure is 
called iaaeciately and executed sequentially (within same context as 
fire() ). The data structures in lav and gmv are updated immediately, 
as is the Transitioat t ] data structure. 

If the transition is timed, the transition t is given to timed. trans. 
handler () . The transition any fire if still enabled vhen the timer 
expires for the transition. 



tir*( tr.no ) 
iat tr.no; 

int (o*x*c) (); /+ — A temporary pointer to tb* addr*ss ot tb* 

procedure to bo called. */ 
it ( Tirana it ion C tr.no ] . immediate ) 


remoTe.tokens( tr.no ); 
add.tokena( tr.no ); 
titde! DEBUG 1 

print! ( H \nXs t ir ed" , Transition Ctr.no] . tag) ; 

tendit 

it C TranaitionC tr.no ] .postprocessing ) 


/o — Robot* tok*na */ 


/* — Add tok*ns 


*/ 


TranaitionC tr.no ] . poatproeoaa ; /* — Assign addr*ss 

to *x«c •/ 


exec 

(•exec) ( tr.no ) ; 


/• — Call procodnr* */ 


> 

«la* 

< 


update. Xwindos( tr.no , 1 ); 

«t eat. flag ■ TRUE; 

it ( single. stop ) co—snd * HALT; 


/* — Timed transition */ 

it ( TranaitionC tr.no ].tiro ) 

TranaitionC tr.no ].tir* * 0; 
fixo.ti mod, transition ( tr.no ) ; 


> 

also 


TranaitionC tr.no ]. tiring 
start .tiaorC tr.no ) ; 


l; 


/• — Tin*r baa finished •/ 


/• — Fir* transition it still 
•nabl*d */ 


/* — Vo tinor is running tor 

tbis transition* so start 
tb* tin*r •/ 


/• — tiroO 


■/ 


/+ 

•• «nabl*( tr.no) 

mm 

mm 2.1) It .global AID global marking vector is avaliabl* 

mm 2.2) It AVD global inpat masks to s«* it tbis transition may fir* 

mm 2.3) Cb«ck t ot tokens available =*> cb*ck.globBT 

mm 3.1) It AID local input masks to s«* it tbis transition may fir* 

mm 3.2) Cbock # ot tok*ns available **> cbsck.localaT 

*« 3.3) It prsconditions sot, cbock it tboso ar* satistiod 

mm 4) Return true it all conditions ar* satistiod 

*« 

•/ 

int 

«nablo(t) 

int t; /• — t is tb* transition nnabor to bo cbockod •/ 

i 

int Ooxoc) (); /« — k temporary pointer to tbo address ot tbe 

pro cedar* to bo called. •/ 

int i; 



/* — ■ If a timor is roaming for than transition, do not chock again */ 
if ( TransitionC t ] .firing ft* TransitionC t ].«nd_tino ) 
roturu ( 0 ); 

/* — Cloar .firing flag such that tho transition nay bo tostod again */ 
if ( TTansitionC t ]. firing ft* ITransitionC t ].ond.ti»o ) 
i 

TransitionC t ]. firing « 0; 

TransitionC t ].firo * l; 

> 

/* — Both conditions vast bo truo */ 
if ( TTansitionC t ] .glob. in ) 
if ( ! (GlobalMarkingV . GM.at ) ) 
rotnrn( 0 ) ; 

•Iso 

{ 

/• — Chock Global narking mask •/ 
for ( i * 0; i < GLOBAL JUSX.SIZE; i++ ) 
if C ! ( ( TransitionC t ] . GInputMaskC i ] 

* GlobalMarkingV. GinputMaskC i ] 

TransitionC t ]. GInputMaskC i ] ) ) 
r«tum( 0 ) ; 

/* — Chock Global narking Toctor •/ 
if ( ! ( chock _globoT( t ) ) ) 

ritm( 0 ); /o 2.3) »/ 

/o — Chock Inhibitor arcs if any •/ 
if ( TransitionC t ] .G lahAr c ) 
if ( Ichock^glob. inhibit (t) ) 
rotum( 0 ) ; 

> 

/o — Chock Local narking voctor •/ 
for ( i = 0; i < LOCAL. MASK.SIZE ; ) 

i 

if ( ! ( ( TransitionC t ] .LinputMask C i ] * /* 3.1) 0 / 

LocalMarkingV . LinputMask C i ] ) ** 

Trans it ion C t ] . LinputMask [ i ])) 
r«turn( 0 ); 

> 

/* — Chock Inhibitor arcs if any •/ 
if ( TransitionC t ] .LInhArc ) 
if ( ! chock. local. inhibit (t ) ) 
rrcura( 0 ) ; 

if ( chock.localav( t ) ) /* 3.3) 0 / 

if ( TransitionC t ] .proconditions ) /* 3.4) 0 / 

oxoc = TransitionC t ] . proprocess ; /* — Assign addross •/ 

if ( (*«xoc) ( t ) ) /• — Call procodnro */ 

rotnm( 1 ) ; /* 4) */ 

also 

rotnm( 0 ) ; 

> 

also 

rotnm( 1 ) ; 


/* 2 .) */ 


) 
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> 

•lit 

rotura( 0 ); 

> /+ — enable () */ 


/* 


check^globar (t ) 

M 

** 1) Chock each input arc to transition t to see if * o f tokens in 

mm the GlobalHarkingV >* the nuabor of input arcs to t from each. 

*« place in the GMV 

*/ 

check_globav( t ) 

int t; /* — t is the transition nuabor to bo checked •/ 


int i; 

for ( i * 0; i < GLOBAL JPLACSS ; i++ ) 
if ( Transit ion C t ] . GInput Vector C i ] > 

Global MarkingV . narking C i ] ) 
returaC 0 ) ; 

returaC 1 ) ; /* Return TRUE only if all arcs k placos checked */ 


> 

fm 

mm 

mm check _localav(t) 

mm 

mm 1 ) Chock sack input arc to transition t to soo if t of tokans in 

** the Lo calMarking V >* the nuabor of input arcs to t from each 

mm placo in the LXV 

mm 

m/ 


check.localmv( t ) 

int t; /* — t is the transition nuabor to bo checked */ 

{ 

int i; 

for ( i * 0; i < LOCAL .PLACES ; i++ ) 

if ( TransitionC t ] . Llnput Vector C i ] > 

LocalBarking V. narking [ i ] ) 
roturaC 0 ) ; 

returaC 1 ) ; /* Rotum TRUE only if all arcs k placos chocked «/ 

> 

/* 

mm 

mm check_glo b . inhib it ( t ) 

mm 

mm 1 ) Chock each inhibitor arc not -1 to soo if 

mm multiplicity of inh. arc >« marking in placo + output mult, to placo 

m/ 
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ch«ck_glob_iahibic( t ) 

iat t; /• — t ii the transition nnab«r to bo chock od •/ 
iat i; 

for ( i * 0; i < SL0BAL.PLACES ; i++ ) 

if ( Transition C t ] . GInhibitVoctor [ i ] > 0 ) 
if ( TransitionC t ] .GInhibitVoctor C i ] < 

( GlobollUxkiag? . sorting C i ] * TransitionC t 3 . GOntpntVoctor [ i ] )) 
rotnrnC 0 ) ; 

rotnxn( 1 ) ; /• Rotnzn TWJE only if all ares k placos chockod */ 


/• 


** 

** 


*/ 


Chech-local., inhibit (t ) 

1) Chech each inhibitor arc not -1 to see il 

multiplicity at inh. arc >* marhiag in place + output suit, to place 


chech-local, inhibit ( t ) 

iat t; /* — t is the transition number to be cheched •/ 

{ 

int i; 


lor ( i 3 0; i < LOCAL-PLACES ; i++ ) 

il C TransitionC t ] .Lin hi bit Vector [ i ] > 0 ) 
il ( TransitionC t ] .Llahibit Vector C i ] < 

C LocalHarhingV. aarhing C i ] + TransitionC t ] .LOut put Vector C i ] ) ) 
retum( 0 ) ; 

retuxn( 1 ) ; /* Return TRUE only il all arcs ft places cheched */ 


mm 

mm 

mm 

mm 


*/ 


r eaove_ cohens ( transition ) 

reaove_tohens() is called alter a transition is enabled and is lired. 
The procedure has a critical section because the aarhing vectors may 
be accessed by other processes concurrently . 

1) For each input arc to the transition - remove * ot tohens 
corresponding to 3 ot output arcs to each output place. 

2) Set the oashs too. 


remove _tohens( t ) 

iat t; / * The transition «/ 

{ 

int i; /* — Counter */ 

/e — Remove tohens Iron local places */ 
lor ( i=0; i < LOCAL-PLACES; i++ ) 

il ( ( LocalHarhingV. aarhing C i ] -» TransitionC t ] .LInput Vector [ i ] ) 
** 0 ) 

LocalHarhingV. Linput Mash C (int) i / longsize ] « 
LocalHarhiagV.LinputMashC (int) i / longsize ] ft 

~( Oxl << ( i % longsize ) ); 


i 

i 
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/+ — lUio?« tokens Iron global places •/ 
i jC ( TransitionC t 3-glob.in ) 
lor ( i » 0; i < GLOBAL.PLACES ; i++ ) 
il ( ( GlobalKarkingV. narking C i 3 -* 

TransitionC t ] . GInput Vector C i 3 ) 33 0 ) 

GlobalMarkingV . G input Mask C (int) i / longsixa 3 * 

GlobalMarkingV. GinputMaskC (int) i / longsixa 3 k 
*( 0x1 << ( i X longsixa ) ); 

> /* — renore.tokensO */ 

/* 

mm add_tokens( transition ) 

mm 

mm add.tokensO is called altar a transition is enabled and is tired. 

mm 1) For sack inp ut arc to tka transition - add $ ol t ok a n s 

mm corresponding to t ol output arcs to aaek output placa. 

2) Sat tka masks tor global and local n a rkin g rectors 

•/ 


add. tokans ( t ) 

int t; /• Tka transition */ 

{ 

iat i; /* — Count ar */ 

lor ( i * 0 ; i < LOCAL. PLACES ; i++ ) /* — Add local tokans */ 

il ( ( LocalMarkingV . marking [ i 3 + * 

TransitionC t ] .LOutput Vector C i 3 ) > 0 ) 

LocalMarkingV . L input Mask [ (int) i / longsixa 3 3 
LocalMarkingV . LinputMaskC (int) i / longsi 2 a 3 I 

( 0x1 << ( i X longsoze ) ) ; /* — Sat m a sk •/ 

il ( TransitionC t ] . glob.out ) /* — Add global tokans a/ 

t 

lor ( i = 0 ; i < GLOBAL. PLACES ; i++ ) 
il ( ( GlobalMarkingV . marking C i ] ♦* 

TransitionC t 3 . GGutput Vector [ i 3 ) > 0 ) 

GlobalMarkingV . G input Mask C (int) i / longsixa 3 3 
GlobalMarkingV . GinputMaskC (int) i / longsixa 3 I 
(0x1 << ( i X longsize ) ) ; 

GIobalMarkingV. update * 1; 

> 

> /« — add.tokensO «/ 

static int ctr = 0 : /« — points to tka next output buller for 

ol tr.bull ar */ 

/m — duller for sanding tka * ol firings and local and global marking */ 
abort info .bull or C 1 * M0.TRAISITI0IS + LOCAL. PLACES + GLOBAL. PLACES 3; 

/* 


mm llusk.bulsO 

mm 

mm Writes tka tr buller and pi. buffer to tka XDisplay server. 

*/ 

llusk.bulsO 

t 

int i; 


il ( ! ( ctr ) ) 
retura( 0 ) ; 
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in!o_bnl!ar [ 0 ] a HOSTIO; 

/* — Copy local in!o •/ 

lor( i * 0; i < LOCJLL.PLACSS ; i-M- ) 

inlo_bui!arC i ♦ I0.HUISI7Z0IS +■ 1 ] » LocaUUrking7 . narking [ i ]; 

/* — Copy global aarking ini o •/ 
lor( i a 0; i < GL0BAL_PLAC2S; i++ ) 

iafo_btt«arC i + IO_THiISmOIS +• L0CAL.PLACHS •*►!]* 

GlobalBarkingV . old C i ]; 

il ( C srita( out_X_»ia, in!o_boilar , sizao!( inlo_bui!ar ) ) ) «■ -1 ) 
ay sarr( "nrita out_I_win" ) ; 
ctr » 0; 

Sildal DEBUG 

print! ( "LB : *•); 

lor( i»0 ; i<L0CAL.PLlC2S ; i++ ) 

print ! ( "JA ", LocalHarking? . marking C i ]); 
print! ("\n" ) ; 
print! ("GH : "); 

!or( i=0 ; KGLOBAL.PLACES ; i-h») 

print! ("%d ", GlobalMarkingV.oldC i ]); 
print! ("Nn") ; 

Saadi! 

> 

/* 

** 


•* 


mm 
*/ 

to id 

rasat _f iring.count ( ) 

{ 

int i; 

tor ( i = 0; i < sa.TaAISITIQIS ; i++ ) 
info.buftar C i + 1 ] * 0; 

> 


updat a _ X window ( ) 

Storas tha tiring saquanca wactor and sands it avary TR.LIHIT firing 
or Than tha tokan playar is finish. ad. 

updata.Xwindow( tr.no, nods ) 
int tr.no , mode ; 

{ 

switch. ( soda ) 

{ 

casa 1 : /+ — idd tr.no to output but far */ 

ct t ++; 

it ( ctr <= TR.LIMIT ) 
into.butler [ tr.ao > 1 ]++; 

alsa 



rasat _t iring_count ( ) 

Sats tha firing countar to zaro» 


1 
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< 

iaio_bnll«rC tr_ao + l]++; 
ilu*h_bufsQ ; 

> 

teok; 

case 2 : /* — Flush bailers */ 

llash_beisO ; 
break; 

default : 
break; 

> 

> 

/* 

mm 

mm dose_all() 

mm 

mm Send termination signal to t iaed^trans Jaadl or and close all open 

mm !ile descriptors. 

m/ 

▼oid 

dose, all O 

dose( token.in ) ; 
dose( token .out ) ; 

> 

/m 

«« alarm.handler ( ) 

mm 

mm Called every tine tlie int errupt tiaer goes oft. 

*/ 

▼oid alam.handl er Q 

{ 

print! ("+") ; 

> 


/* 

mm 

mm 


m/ 


input _ int errupt .Uandl er ( ) 

When an I/Q interrupt is issued, tliis routine is called. 
The procedure sets a dag. 


static int count * 0; 

▼oid 

input . int errupt .handl er ( ) 
< 


svitcli 

/ 

( 

count >+ ) 



\ 

case 

0 

: print! ( 

"\b-" 

); break; 

case 

1 

: print! ( 

•<\b/» 

); break; 

case 

3 

: print! ( 

"\bi" 

); break; 

case 

4 

: print! ( 

"MAY 

" ) ; break 

case 

5 

: count * 

0; break; 


> 



79 


> 


init .socket () 

Initializes tie sockets tor global marking vector token ring. 

token.in is socket tor tie server ot SERVER! AXE tiat runs on tiis iost 
and reads tie token message trom SERVERHAXE. 

token.ont is tie socket tor tie client to CLIEITVAME and writes to 
tiis . 


init . so cket s () 

{ 

clar temp ; 

/* — Connect to XDisplay */ 

out.!. win * client _ s etup( HOSTOIAXE, DISPLAYPORT ); 
tit 10. HOSTS > 1 

titdet HQSTO /* — Tiis is token player to */ 

/* — Setup SERVER connection tor token player t 1 */ 

token.in * serv_setup_intr( HOSTHAXE, PLAYERPORT, 

"Server waiting for pnl ... M ); 

setblock( token.in, FALSE ); 

/+ — Wait until tie last token player has opened its server for token 
player 0 •/ 

printf( M Hit Enter vien last token player server is ready : \n M ); 
scant ( H %s“, ktemp ); 

token.out « client. setup< SERVER! ARE. PLAYERPORT ); 
telse /* — Tiis is not token player 0 */ 

token.out = client. setup( SERVER! AXE, PLAYERPORT); 
token.in = serv.setup_intr( HOST! AXE , PLAYERPORT, 

"Server waiting for pn(i+l) M ); 

setblock( token. in, FALSE ) ; 
tendif 
tendif 

command. in = serv.setup.intr( HOSTHAXE , C0XXAIDP0RT, 

"Server waiting for ICommand . .." ); 

setblock( command. in, FALSE ) ; /* receive commands from 

X Command «/ 

tit HQSTIO == 0 
titdet EXTEHJAL.IQ 

io. socket = s erv. setup. in tr( HOSTHAXE, IQPQRT, 

"Server waiting tor device driver program ..." ); 
setblock(io. socket , FALSE ); /e receive commands from 

device driver •/ 

tendif 

tendif 

tif H0STH0 == l 
tifdef EITER!AL.I0 

io. socket = serv.setup.intr( HOSTHAXE, IOPORT+OFFSET1 , 

"Server waiting for device driver program ..." ); 
setblock( io. socket , FALSE ); /* receive commands from 

device driver */ 


/* 

«« 

«* 


tendif 
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*«adil 


*12 HOSTTO »« 2 
#12d mt EXTEMUL.IO 

io.sock** » s«rr. 3 «top_intr( H0STIA11E, I0P0BT+0FFSBT2 , 

n S«rr«r waiting for dowieo driror program ..." ) ; 
sotbloci(io_sockot, FALSE ); /* rocaiwo commands from 

dowico drivar »/ 

tondif 

Sandif 

signal ( SIGIO, input .intarmpt.bandlar ); /* — Sot up intorrupt to bo 

issnod ubon i/o occurs */ 

> /* — sockotinitO «/ 




•a aain() 

** 

mm Min ha s the following stmcturi : 

M 

« 1) Initialize net data stncnuat 

*« 2) Establish communication to other players. ZDisplay * XCommaad 

«« 2.1) Establish communication with external machines to be controlled 

«« 3) Set up interrap timer for watchdog operation 

mm 4) Wait for event 

« 4.1) If command * HOT; Run token player 

** until system is quiet (no further transitions tire) 

mm 4* 2) Goto wait for event 

mm 5) If quit o— and issued, close sockets and exit 

*/ 

mainO 

< /* — ma±n() */ 

init.net () ; 
init. sockets O ; 

init.elapsed.timeO ; 
signal (SXGALHH , alarm, handler) ; 

Sit 10. HOSTS >1 /* — Set interrupt intervals */ 

set.intr(5 ,0) ; 

Seise 

set.intx(0 , 100000) ; 

Sex&dif 


/m — Initialize net •/ 

/m — Initializes sockets for interhost 
token message handling */ 

/m — Set signal for interrupt timer */ 


command 3 HALT; 

while ( command !« STOP ) /* — Do until command 33 STOP */ 

{ 

pause () ; 

fflush( stdout ) ; 
get.event ( ) ; 
switch C command ) 

i 

case RUH : token.player ( ) ; 
break; 

case HALT : break; 

case RESET : init.net () ; 

command 3 HALT; 
break; 


default : 



81 


> 


> 

> 

close. all() ; 

•xit( 0 ); 


A. 4.7 event Jxandler.c — Command and Marking Vector Handling 

tinclude <stdio . h> 

f include "player . h" 

♦include "def s.h" 


BQQLEAI single. seep = FALSE; 


extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 


struct trans Transition; /* — Array of transitions */ 

struct GlobaDCV GlobalHarkingV ; /* — The global m. v. */ 

int longs ixej 

/* — File descriptors for pipe. This pipe is 

used tor signalling end of timed trans. */ 
/* — File descriptor for receiving the gmv 
the token from the previous player */ 

/* — File descriptor for sending the gw to 
the next token player */ 

Socket for receiving commands */ 


int endpipeQ ; 
int token. in; 


int token.out; 


int 

int 


co wand, in; 
io. socket ; 


BQQLEAI timer. running; 


/* 

/* — Socket for receiving external events */ 


enua comd.type cowand; /* — Type for possible couand nodes of player */ 
BQQLEAI event .flag s TRUE; 
static int tr.pointer * 0; 
long io.buff erCll ; 


/* 


mm 


•/ 


get. next. trans O 

returns the next transition t to be evaluated for firing. 

First checks if a transition is on the event queue and returns 
this if so. Else returns the transition pointed to by tr.pointer. 

If tr.pointer > IO.TRAISITIOIS , then all transitions have been 
evaluated without any firing. (-1) is then returned to signal that 
token player may hibernate until another event occurs. 


int get .next .trans it ion() 
int tr.no; 

if ( event. flag ) /* — Event has oc cured, check all transitions again*/ 

event .flag = FALSE; 
tr.pointer = 0; 

> 

if ( timer. running ) /* — A timed transition may be ready to 

fire, check all transitions */ 

if ( ( tr.no = timer.endO ) -I ) /* — Some transition is done */ 

rstura ( tr.no ) ; 
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12 ( tr_poin««r < lO.miSXTXOlS ) 
r«mra( tr_point*r++ ) ; 

•Is* 

< 

tr.po inter » 0; 
retura( -1 ) ; 

> 

} 


/* — lUturm transition and increnent 
pointer */ 

/a — All transitions 1 ut« boon 

checked and no one fired */ 

/+ — Reset counter and start new cycle*/ 


/* — 

mm 

«« decode. cond( but ) 

M 

*« Decodes the first short of the global narking vector. When this is 

«e not zero, a co— and is being passed around* 

*/ 

void decode. cond( con ) 
long con; 

switch C con ) 

{ 

case 1 : 

co— and * RUT ; break; 
case 2 : 

co— and 3 HALT; break; 
case 21 : 

co— and * RUT; break; 
case 3 : 

co— ml * RESET; break; 
case 4 : 

co— and 3 STOP; break; 
case S : 

if ( single. step ) 
single. step 3 FALSE; 
else 

single. step = TRUE; 
break; 
case 6 : 

if ( single. step ) co— and 3 RUT; break; 

case 7 : break; /* — Redraw */ 

case 8 : break; /* — Display Stats */ 

case 9 : break; /+ — rates / tines «/ 

case 10 : /* — reset stats •/ 

reset. f iring.count () ; break; 
case 11 : /* — core dunp +/ 

dunpO; break; 

> 

> /* — decode. cond() */ 

/* 

mm 

get.gmv( buffer ) 

•a 

33 Vhen a gnv event is detected by event .handler, this routine 

33 is called to form the global narking vector. 

33 

33 bufferC 1 - a ] contains the global narking vector. 
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•/ 


void g et_gBV< bailor ) 
long bailor □ ; 

int i; 

GlobalMarkingV . GM_av si; /* — a MV is available no* */ 

event. flag a mJE ; 

il ( GlobalMarkingV . apdato ) 

{ 

lor ( i * 0; i < GUJBAL.PLACSS ; i++ ) 

i 

GlobalMarkingV. Barking C i ] ♦* bollorC i + MASK _BUFS IZE ] ; 
GlobalMarkingV. GinpurMaskC (int) ( i / longsizo ) ] 3 
( GlobalMarkingV. Barking £ i ] > 0 ) ? 

GlobalMarkingV. GinputMamkC (int) ( i / longsizo ) ] I 

( 0x1 « i ) : 

GlobalMarkingV . G input Mask C (int) ( i / longsizo ) ] k 

'( 0x1 « i ); 

> 

GlobalMarkingV . update a 0; 

> 

else 

-c 

1 or ( i 3 0; i < GLQBAL.PLACES ; i++ ) 

GlobalMarkingV. aarking £ i ] 3 bollorC i > MASX_BOFSIZE 3; 

lor ( i 3 0; i < (int) GLOBAL.PLACES / longsizo + 1; i++ ) 
GlobalMarkingV. G input Mask [ i ] 3 bollorC i ]; 

> 


** release_gnv() 

** 

** Altar tha tokan play ar is dona vith tiia global aarking vactor, 

** this is ralaasad to tba aaxt dost. 

•/ 


void ralaasa_g»v( ) 

£ 

long bull ar C GMV.3UFSIZE ]; 
int i; 

tit IG. HOSTS > 1 

it C GlobalMarkingV. GM.av ) /* — Only sand gmv whan it is at tkis 

playar */ 

£ 

builarC 0 ] * 0; 

GlobalMarkingV . GM.av » 0; 

GlobalMarkingV . apdat a = 0; 

/* — Copy mask to bullar +/ 

for ( i = 0; i < (int) GLOBAL .PLACES / longsizo + 1; i++ ) 

£ 

buitarC i ] = GlobalMarkingV . G input Mask C i ]; 
GlobalMarkingV . G input Mask C i 3 =0; 

/m — Copy global narking vactor */ 
toT ( i * 0; i < GLQBAL.PLACES ; i-w- ) 

£ 
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bull or C MASXJKJFSXZE + i ] » GlobalHaxkingV . marking C i ]; 
GlobalXarkingV . old C i ] * Sloba DUrking V . m a rkin g C i ]; 
globalMarkiagT . marki tig£ i ] * 0; 

/* — Sand global marking roctor to a«xt tokan playor */ 
il ( writ* ( tokon.out , bull or, sizoolC bailor ) ) ** -1 ) 
syaorxC "rrito tokan. out" ) ; 

updata.Xsindow( 0, 2 ); /* — Flub firing aoqaonco and m a rki ng 

▼actors to tbs XDisplay */ 

> 

Oondil 

> 


g«_srsnt() 

Roads all tbs inpat sockets and pipos. II thoro is any inlo, 
docodos this. 

Roads: 

- command, in sockot from XCosmand window 

- tokon.in sockot from tbs proviou tokon playor 

- io. sockot sockot from dories driTor program. 


▼oid got.orontO 

{ 

long tokon.bullorC GMV.BUFSI2B ];/* — Bailor lor rocoirod marking roctor */ 
long command. boll or C 2 ] ; 
int aroad, i; 

Oil HQSTYO 0 
Oildol SXTERIAL.IQ 

/* — dock il thoro is anything from tho dories driror program to road */ 
il ( nr sad = road( io. sockot, io .ball or, sizooK io. ball or ) ) 

> 0 ) 

docodo.ioO ; 

Oosdil 

Oondil 

Oil HOSTXQ == 1 
Oildol S2TEMAL.I0 

/* — Chock il thoro is anything from tho dorico driror program to road */ 
if ( aroad = road( io. sockot, io .bull or, sizool( io .ball or ) ) 

> 0 ) 

docodo.ioO ; 

Oondil 

Oondil 

Oil HOSTXQ aa 2 
Oildol SXTERIAL.IQ 

/* — Chock il chore is anything Irom tho dorico driror program to road */ 
il ( nroad = road( io. sockot, lo.ballor, sizool ( io. bull or ) ) 

> 0 ) 

docodo.ioO ; 

Oondil 

Oondil 

/« — Chock il choro is a command arailablo to road •/ 

il ( aroad = road( command, in, command.ballor , sizool( command. bull or ) ) 
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> 0 ) 

decode. co»d( conaaad.buff er C 0 ] ); 
til VO. HOSTS > 1 

/* — Check if it is tlis global marking vector that is available */ 
if ( oread » read( token.in* toksn.buffer , sized ( token. buffer ) ) > 0 ) 

< 

get^gmv( token.buffer ); /+ — g»v available */ 

♦ifdef DEBUG 

priatf ("gav read ft! bytes s w , oread) ; 
lor (i * 0; i < sizeof (token.bufler)/4; i++) 
prin Xt ( H 7*d M f token.buller Ci3 ) ; 
printf ( H \n" ) ; 

♦endif 

> 

♦endif 

> 


A.4.8 iniLnct. c — Intitaiizea Data Structures 


♦include 

♦include 

♦include 

♦include 

♦include 


'•player . h" 

<stdio.h> 

<errno.h> 

"defs.h" 

<string.h> 


extern struct trans Transit ion ClO^TOUISITIOIS] ; /• — Transitions */ 

extern struct LocalXV LocalHarkingV ; /* — Ike local marking v. */ 

extern struct GlobalJfV GlobaUUrkingV ; /* — The global m.v. */ 


/* 


•/ 


iait. links () 

Initializes the links to transition preconditions and postprocessing 
routines . 


♦include DRIVERFILE 


init.net () 

iait initializes the datastructures that contain the net definition 


void init.net O 

{ 

int i, j; /* — Loop counter «/ 

printf ( ’• init call ed\n" ) ; 

/* — Use host number to specify a seed betveen 0 and 31 */ 
init.elapsed.timeO ; 
usleep( 1000) ; 

rod. init ( slaps ed.tiaeO 7* 31 ); 

iait.elapsed.timeQ ; 

for (i = 0; i < VO.'nUISITIOIS ; i++) 

{ 

Trans it ion Ci] . firing = 0; 



TransitionCi] .glob.in * 0; 

Trans it ion Ci] . glob.out 3 0 ; 

Trans it ion Ci] .LlnhArc * 0; 

Trans it ion Ci] . GInhArc s 0; 

TransitionCi] .iansdiats * 0; 
TransitionCi] .tiaod 3 0; 

TransitionCi] . preconditions * 0; 
TransitionCi] .postprocsssing » 0; 
TransitionCi] .liring_rats * 1.0; 
TransitionCi] .prsprocsss * IULL; 
TransitionCi] . postprocsss * IULL; 
stxcpy( TransitionCi] .tag, mm ); 
lor ( j » 0; j < L0CAL.PLACES; ) 

{ 

TransitionCi] .LInpntVsctorCj] * 0; 
TransitionCi] .LQntpntVsctorCj] * 0; 
TransitionCi] .LIndib it VsctorCj] * 0; 

> 

tor ( j = 0; j < LQCiL.MASX.SI2E; ) 
TransitionCi] .LInputXaskCj] 3 0; 

tor ( ^ 3 0; j < GLOBAL. PLACES ; j++ ) 

i 

TransitionCi] .GInpntVsctorCj] * 0; 
TransitionCi] .GOutpntVsctorCj] * 0; 
TransitionCi] . GlnkibitVsctorCj] * 0 ; 

> 

for ( j a 0; j < GLOB AL.MASX.SIZE ; ) 

TransitionCi] . GInput Mask Cj] 3 0; 

lor C i * 0; i < LOCAL.PLACES ; i++ ) 

C 

Lo cal Marking V . aarAing Ci] 3 0; 
strcpy( LocalMarJcingV.tagCi] , ); 

for ( i a 0; i < GLOB AL. PLACES ; i++ ) 

{ 

GlobalMarbingV . updat# = 0; 
GlobalMarbingV.GX.av = 0; 
GlobalMarbingV.aarbingCi] = 0; 
strcpy ( GlobaiMaritingV. tagCi] , WM ); 

tinclnds IETFILE 

tinclnds LIIXFTLE 

> 


A. 4.9 intrMmtr.c — Sets up the Interrupt Timer 

tinclnds <sys/tias.b> 
tinclnds <stdio.b> 
tinclnds <signal.b> 


mm 


ast.intrC asc, usee ) 

Ssts tbs interval for tbs timsr to go oil in ssc.nssc 
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▼oid set.intr( sec, usee ) 
long s«e f ussc; 

struct itimsrral ti; 

it ( ( 10000 + us sc ) >« 1000000 ) 

t i. it .value. tt. sec * 1 ♦ sec; 

ti. it .value, tv.usec * 10000 + us sc - 1000000; 

> 

slss 

{ 

t i. it .value. tv.sec * sec; 
ti.it.valus. tv.usec * 10000 + ussc; 

> 

ti.it.interval. tv.sec * ssc; 
ti.it.interval. tv.usec * ussc; 

it ( setitimerdTIMER.REAL, Ati, (struct timeval*)0 ) ) 
syserr( M setitimer") ; 

> 


A.4.10 timccLtransJiandUr.c — Checks Timer for Transitions 


# include 
tinclude 
tinclude 


<sys/tiae.h> 

<sys/types.h> 

<sys/times.h> 


tincluds 

tincluds 

tincluds 

tincluds 

tincluds 


<stdio.h> 
<ermo ,h> 
"player. h" 
••de*s.h" 
<anth.lL> 


static double TXCXS * 1000.0; /* — lunber ot tides per ssc. system clock */ 
static double SCALE *1.0; /* — Tine seals lor simulator: 

1/10 seconds : SCALE * .1 

* 1.0 

*60.0 

* 3600.0 

* 86400.0 


extern struct trans TranaitionQ ; 
extern unsigned long elapsed.timeQ ; 
double log<) , md_01d(); 


seconds 

minutes 

hours 

days 


SCALE 

SCALE 

SCALE 

SCALE 


BQQLEAH timer .running * FALSE; 


mm 

mm timer, end O 

mm 

mm Checks all liring transitions (timed or exponential) to see it the 

** end. time is less than the actual time. 


•/ 
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iax 

ti»f „«nd() 

{ 

int i; 

tl— r.nmniag 3 FALSE; 

lor ( i a 0; i < I0.TRAISITI0IS ; i+* ) 

{ 

if ( Tran*itioaC i ] .firing ) 

{ 

tijMr .running 3 TRUE; 

if ( «lap**<i_tia«() >« Transition [ i ] . md.tia* ) 

< 

Trans it ion C i ] . and _ tins = 0; 
r«rum( i ) ; 

> 

> 

> 

rvenrn ( -1 ) ; 

> 


/* 

** 

** 


mm 


*/ 


start.timar( tr.no ) 

St arts tbe ti mar for a timed transition. Hie ti am is fixed 
and is tbe invars* of tbe firing rats if the transition lias 
deterministic firing tins. 

For axponsntial transitions, the firing tins is ba sad on computing 
the invars* of the cumulative distribution function givan a random 
valna batvaan [0 , 1] and scaling this using the firing rata of the 
transition. 


void 

start .timer ( tr.no ) 
int tr.ao; 

{ 


unsigned long tstart; 
doable rnd; 
doable tine, rate; 

rata * (double) Transition [ tr.no ] .liring_rat* ; 
switch, ( TransitionC tr.no ]. timed ) 

i 

case 0 : / » — Exponential */ 

tstart = elapsed. tim*() ; 
rnd * rnd.OldO; 

time » SCALE * (-1) * log( rad ) * 7ICXS / rata; 

TransxtionC tr.no ].*nd.time » tstart +* (unsigned long) time; 
tifdaf DEBUG2 

printf ("\a7.s — R#: 7.1 -> Exp Xf ns\n", TransitionCtr.no] .tag, rnd, time); 

tendif 

break; 

case 1 : /* — Timed »/ 

tstart s elapsed. time() ; 
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tine * (SCALE • TICES) / rate; 

♦i*de* DEBUGS 

print* ( M \nXs — Det X* na\n*\ TTansitioaCtr^no] .tag, tine); 

♦endi* 

Transition C tr.no ]. end. tine * tatart + Consigned long) time; 
break; 
default : ; 

> 

timer .running = TRUE; 


A.4.11 timer, c — Timer Routines 


# include <sys/time.h> 

♦include <sys /types . h> 

♦ include <sy s/times .h> 


♦include 

♦include 

♦include 

♦include 


<stdio .h> 
<errao.h> 
"player . h" 
“deis.h” 


/* 


** init.elapaed.timeQ 

«e 

*• Resets the timer. 

mm 

*/ 


static struct timeval time.O; 

▼oid init.elapsed.timeO 

{ 

g«ttiiwoiday(*tijM_0, (struct tia«zon«.)0) ; 

> 

/• 

mm 

e« elapsed. time() 

«* 

•* Returns the time o* the internal clock in 1/ 1000th o* seconds. 

mm 

*/ 

unsigned long 
elapaed.timeO 

C 

struct timeval tp; 
unsigned long i; 

gettimeofday (ktp , (struct timezone»)0) ; 

i = (tp. tv_sec-time_0 . tv_sec)*1000 + (tp . tv.usec-time.Q . tv .usee) / 1000 ; 
return i; 

> 


/• 

mm 

mm 


mm 


elapsed. time. sec () 
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ee Rocuras tlx# tin# of tlx# internal clock in seconds. 


•/ 

Unsigned long 

elapeed.time.secO 

{ 

stnct timeval tp; 
unsigned long i; 

getzimeof day (htp , ( struct t imezone* ) 0 ) ; 
i 9 (tp.tv.sec-time.O. tv.sec) ; 
r#t un x i; 

> 


A-4.12 xrand.c — Random Number Generator for Simulation 

tinclud# <math.h> 


/’ 


number generators: 


nxd.init (unsigned seed) 

: initializes tlxe generator 

rnd^Old () : returns doubles [0, 0,1.0) 

lot#: ")" is ao typo - rnd.Old will not return a 1.0, 
but can return the next smaller FP number. 


Algorithm M as describes in Knuth's ‘‘Art at Computer Programming 4 *, 

Vol 2. I960 

is used witlx a linear congruential generator (to get a good uniform 
distribution) tlxat is permuted with a Fibonacci additive congruential 
generator to get good independence. 

Bit, byte, and word distributions were extensively tested and pass 
Chi-squared test near perfect scores (>7E3 numbers tested. Uniformity 
assumption bolds with probability > 0.999) 

Run-up tests for on 7E8 numbers confirm independence wit lx 
probability > 0.97. 

Plotting random points in 2d reveals no apparent structure. 

into corral at ion on sequences of 5ES numbers (A(i) - SUM X(n)*X(n-i) > 
i=sl . .512) 

results in ao obvious structure (A(i) * const). 

On a SXJH 3/60, md_u() takes about 19.4 usee per call, wbicb is about 447. 
slower than Berkeley's randomO (13.5 usec/call) . 

Except for speed ***** memory requirements, tbis generator outperforms 
randomO for all tests. (randomO scored ratber low on uniformity tests, 
while independence test differences were less dramatic) . 

Thanks to M. Mauldin, H. Walker, J.Saxa and M.Molloy for inspiration k help. 

(c) Copyright 1988 by A. Howatzyk 
— Routines not used removed from file , 1/29/91 A. 3. 

'/ 


/ 


LC -parameter selection follows recommendations in 

'* Handbook of Mathematical Functions** by Abramowitz * Stegun 10th, edi. 
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kdeline LC_A 66049 /* a 261 “2 1 ** sqrt(2~32) */ 

tdeline LC_C 3907864577 /e result ol a long trial * error series •/ 

tdeline Xrnd(x) (x • LC.A + LC.C) /* the LC polynomial •/ 

static unsigned long FibCSS] ; /* will use X(n) * I(n-6S) - X(n-24) */ 

static int Fib.ind; /* current index in circular buller */ 

static unsigned long Xzad.T«r; /* LC1 - recurrence variable */ 

static unsigned long anxtab [266] ; /* temporal permutation table */ 


static unsigned long prmtabC64] * { /* spatial permutation tabla •/ 


Oxllllllll , 

0x00000000 , 

0x00000000, 

0x00000000 , 

/• 

3210 

•/ 

0x00001111 , 

0x00110000, 

0x00000000, 

0x11000000 , 

/* 

2310 

*/ 

0x11000011 , 

0x00001100 , 

0x00000000, 

0x00110000, 

/* 

3120 

•/ 

0x00110011 , 

0x00000000 , 

0x11001100, 

0x00000000 , 

/* 

1230 

*/ 

0x11110000 , 

0x00000011 , 

0x00000000 , 

OxOOOdlOO , 

/* 

3201 

*/ 

0x00000000 , 

0x00110011 , 

0x00000000, 

0x11001100, 

/* 

2301 

*/ 

0x11000000 , 

0x00000000 , 

0x00000011 , 

0x001 11100 , 

/* 

3102 

*/ 

0x00000000 , 

0x00000000 , 

0x00000000 , 

Oxllllllll , 

/* 

2103 

*/ 

0x11001100 , 

0x00000000 , 

0x00110011 , 

0x00000000 , 

/* 

3012 

*/ 

0x00001100 , 

0x00000000 , 

0x00110000 , 

0x11000011 , 

/* 

2013 

•/ 

0x00000000 , 

0x00000000 t 

Oxllllllll , 

0x00000000, 

/* 

1032 

•/ 

0x00000000 , 

0x00001100 , 

0x11110000, 

0x00000011, 

/• 

1023 

*/ 

0x00000000 , 

0x11111111 , 

0x00000000 , 

0x00000000 , 

/• 

0321 

•/ 

0x00111100 , 

0x11000000 , 

0x00000000 , 

0x00000011 , 

/• 

0213 

•/ 

0x00000000 , 

0x11000000 , 

0x00001111 , 

0x00110000 , 

/• 

0132 

•/ 

0x00000000 , 

0x11001100 , 

0x00000000 , 

0x00110011 

/* 

0123 

•/ 


>; 

onion back { /« used to ace ass doubles as unsigned* «/ 

double d; 

unsigned long u[2] ; 

>; 

static union hack man ; /* mantissa bit vector */ 

rnd.xnit (seed) /* modified: seed 0-31 use precomputed stall */ 

unsigned seed; 

{ 

register unsigned long u; 
register int i; 
double x, y; 
union hack t ; 

static unsigned seed_tab[32] = { 

0xbdcc47eS, 0x54aea46d t 0xac0dl869 t 0xda84637b, 

0xc8c6cb41 , 0x3SS74b01, Qx28260b7d, 0x0d071dbl , 

Ox91aaeebO, 0x6l3ddl69, 0xSce2d818, 0x8Sb9e706 , 

0xab2469db, 0xda02b0dc , Qx4Scfl0d6e, Oxlla49dlO , 

0x72241 ea3, 0xl96841c9, 0xlc7ee074, 0x326ce92a, 

0x366dl3b6 , 0xl7aaa731. 0xeb63aa7S, 0x7781cb32, 

0x4ec7c92d, 0x71187521, 0x2cl34flb4, 0xadl33101, 

0xb89cll2b , 0xl2164del, 0xa866l68d, 0x32b56cdl >; 

il (seed < 32) 

u a seed^tabCseed] ; 

else 

u a seed * seed.tabCseed * 31] ; 

lor (i s 55; i — ;) /* set up Fibonacci additive congruent ial «/ 

FibCi] 3 u = Xmd(u) ; 
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lor (i ■ 2 66 ; i— ;) 

auxtabCi] « » * Xrad(u); 

Fib.ind * u X 66; /* select a. starting point */ 

Xrad_var ■ u; 

ii (sizeoi (x) !• 2 * sizeoi (unsigned long)) -C 

x * 0.0; 

7 * !•<>; 

j /« x; /*•• intentional divide by 0: rnd_01d till 

4 not work boeanao a double doesn't lit 

in 2 unsigned longs on your Machine! •**/ 

>; 

x » 1.0; 

7 ■ 0 .S; 

do { /• find largest ip-naaber <2.0 */ 

t.d * x; 
x +* 7; 
y *■ 0 . 5 ; 

> while (x !* t.d tt x < 2.0); 
aan.d a 1.0; 
aan.uCO] *■ t.aCO]; 

M»n nftl t.uCl] ; /* nan is now 1 ior each aaatissa bit «/ 


unsigned long rnd.u () 

/a 

• sane as md_i, bat gives fall 32 bit range 
•/ 

{ 

register unsigned long i, j, at a Fib; 

i a Fib.ind; 

j a tCU ; /* * I(n— 65) */ 

j -a (i >■ 24 ) ? tCi - 24 ] : tCi ♦ 21 ]; /a a I(n- 24 ) •/ 
tCi] * j: 

ii (++i >* 65 ) i » 0; 

Fib.ind = i; 

t = tauxtabCCj » 24) k Oxli] ; 
i * «t; 

Xrad_var a *t a Xmd(Xrad_var) ; 
t a hpratab C j k 0x3c] ; 

j = at-M- k i; 

j | s *t+-^ k ((i « 24) I ((i » 8) h 0x00111111 ) ) ; 

j |= at-M. k ( Ci « 16 ) I (Ci » 16 ) k 0x00001111)); 

j I a -t * (Ci « 8) I ((i » 24) k 0x00000011)); 

return j ; 

> 

long md_ri (rag) 
long rag; 

/* 

« randint: Return a randon integer in a given Range C 0 ..rng-l] 
a Vote: 0 < rag 

a/ 

< 

register unsigned long r, a; 
do { 

r = rad_i() ; 
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* » (r / rag) + 1; 

& »* rag; 

> ahilo (a >■ 0x7 tltllil); 
a—: 

rotara a - r; 


doable rad_01d () 

/* 

* rotaraa a uaiioraly distribatod doable ia tbe range at [0 . . 1 ) 

* or 0.0 <3 rad.01d() < 1.0 to be precise 

* 

* lo te: this code units that 2 'unsigned long's can hold a ’double' 

* ( sories on SUI-3's, SUI-Vs, MIPS, VAXen, IBM RT’s) 

*/ 

union hack t; 
t .d * 1.0; 

t.uCO] I* rnd.u() k man.uCO]; /* munch in 1st part */ 

t.uCl3 I 3 rnd.u() * nan.uCl]; /* munch in 2nd part */ 

return t.d - 1.0; 

> 


A.4.13- syserr.c and sctblock.c — System Error and IO Blocking 

♦include <stdio.h> 

▼old syserr( msg ) /* print system call error message and terminate */ 

char *msg; 

extern int errao, sys^aerr; 
extern char *sys_errlist □ ; 

f print* ( stderr , “ERROR: 7a (%d" , mag, ermo ); 
if ( ermo > 0 tt ermo < sys.aerr ) 

fprintK stderr, %s)\a M , sys.errlistC ermo ] ); 
else 

f priatf ( stderr , M ) \n M ) ; 
exit ( 1 ) ; 


♦include 
♦include 
♦include 
♦include 

/* 

** setblochO 

mm 

mm setblochO turns blocking on or o ff for a given fd. 

mm 

*/ 


<stdio .h> 
<ermo ,h> 
<fcatl.h> 
“def s.h“ 


void setbloch( fd. on ) 
int fd; 

3Q0LEAI on; 



static 1st block* , aoablockf; 
static BQOI.RAI first « TRUE; 
int flags; 


if ( first ) 

{ 

first * FALSE; 

if ( ( flags * fcntl( fd, F_GETFL, 0 ) ) *• -1 ) 
syserxC 'fent!" ); 

block* » flags * “O JPBLAT ; /* — O.IDELAT is off */ 
aoablockf = flags I ~0_ JDEULT ; /» — O.IDBLAT is on */ 

if( fcatK fd, F_SETFL, on ? block* : aoablockf ) *■ -1 ) 
sysorr< "f catl2" ) ; 

> /• — sotblockO */ 


A.4.14 dump.c — Prints the Current Net Data on the Terminal 


♦include 

•include 

•include 

•include 

•include 


"player . b" 
<stdio ,b> 
<errao.b> 
“defs.b" 
<string.b> 


ereera struct trans Transit ionQO.TBJUISlTIOlS] ; /* — Transitions •/ 

extern struct LocalXV Lo cal Harking? ; /• — Tbe local narking ▼. */ 

extern struct (HobelMV global Harking? ; /* — Tbe global a.r. */ 


/* 


•• Duaps all data to tbe screen. 

•/ 


▼oid duapO 

C 

int i, j; 

for (i * 0; i < I0_TRA*SITI0IS ; i++) 

{ 

print* (”TCid] .firing * %d\n" ,i, Trans itionCi] .firing) ; 

print* ("T C/.d] .glob.in * , 4d\n" ,i. Trans itionCi] .glob.in) ; 

print* ( "T Cid] . glob.out * Xd\a" , i , Transition Ci] - glob_out ) ; 

print* QTCid] .LInbArc * '4d\a M .i. Transition Ci] .L Tnh A r c) ; 

print* ( ”T Cid] . CInbArc a %d\n“,i, Trans itionCi] .GInbArc) ; 

print* (”T Cid] . iaaediate * £d\n'* ,i .TransitionCi] • ianediate) ; 

print* ( "T Cid] . tiaed = %d\n M , i , TransitionCi] . tiaed) ; 

print* ("T Old] .preconditions a %d\a“ ,i, TransitionCi] .preconditions) ; 

print* ("T Cid] .postprocessing * Xd\n" ,i, TransitionCi] .postprocessing) ; 

print* ( "T Cid] . end.tiae = Xd\n" , i , Transition Ci] • end_time ) ; 

print* (**T Cid] .firing_rate » %f\n M ,i. TransitionCi] .f iring_rate) ; 

print* ("T Cid] .tag a %s\n".i, TransitionCi] -tag) ; 

print* ( "T C5id] . LInput?ector * " ,i) ; 

for ( j » 0; j < L0CAL_PLACES ; ) 

print* (••*, id **, TransitionCi] .LlnputVectorCj] ) ; 
print* ( "Nn" ) ; 

print* ( "? Cid j . LOutput Vector a •• , i ) ; 
for ( j a 0; 2 < LOCAL.PLACSS ; j++ ) 


print * ( "Hd " t Transition [i] . LQutpntTector Cj3 ) ; 
print* ("\n") ; 

print* ("TCCd] .LInhib it Vector » H *i); 
lor ( j * 0; j < LOCAL.PLACES; j-H* ) 
print* ( H %d " , Transit ionCi] . LInhibit Vector Cj3 ) ; 
print* ( "\n" ) ; 

print* ( **T CCdj . G Inhibit Vector * " . i) ; 
lor ( j » 0; j < LOCAL.PLACES ; ) 

print* ( "?,d " , TransitioaCi] . GlahibitVoctor Cj] ) ; 
print* ("\a") ; 

print* ( M TCCd] .LInput Mask 3 M ,i); 
ior ( j a 0; j < LOCAL. MASK.SIZE ; j++ ) 
print* ( "%x *• , Transit ion Ci] . LInputMa sk Cj ] ) ; 
print* ("\n") ; 

print* ( "T Cid] .GInput Vector * * # i); 
ior ( j 3 0; j < GLOBAL.PLACES ; ) 

print* ("?.d " , Transit ionCi] . GInputVector Cj3 ) ; 
print* ("\n") ; 

print* ( *T Cid] . GQutputVeccor * H , i) ; 
lor ( j a 0; j < GLOBAL.PLACES; ) 

print* ( "?*d " , Transit ionCi] . GOutput Vector Cj] ) ; 
print* ("\n") ; 

print* ( **T CCd] . GInputMask 3 ",i); 
lor ( j 3 0; j < GLOB AL.NASK.SIZE ; ) 

print* ( "7.x " , TTansitionCi] . GInputMask Cj] ) ; 
print* ( "\n" ) ; 

> 

print* ("Local Harking 3 ") ; 

lor ( i * 0; i < LOCAL.PLACES; i-w ) 

print* ( "7*x " , Localliaricing V. ns rkiag [i] ) ; 
print* ("\n") ; 
print* ( "Local Tags 3 " ) ; 

lor ( i 3 0; i < LOCAL.PLACES; i++ ) 
print* ( "%a " , LocalMarkingV . tag [i] ) ; 
print* ("\nGlobal Marking 3 "); 
lor ( i 3 0; i < GLOBAL.PLACES; i++ ) 

print* ( "7#d " , GlobalMarkingV .narking [i] ) ; 
print* (" \n" ) ; 
print* ("Global Tags - "); 
lor ( i 3 0; i < GLOBAL.PLACES; i++ ) 
print* ( "7*s " , GlobalMarkingV . tag Ci] ) ; 
print* ("\n") ; 

print* ( "GL0BALMARKI3GV . update 3 !ld\n" , GlobalMarkingV .npdata) ; 
print* ("GL0BALMARXI3GV.GM.av 3 VA\r 19 , GlobalMarkingV . GM.av ) ; 


A.4.15 servtr.intr.c — Sets up Server Socket 

♦include <sys/t7pes .h> 
kind uds <sys/ sockst . h> 

♦include <aetinet/in.h> 

♦include <uetdb.h> 

♦include <*cntl.h> 

♦include <amo . h> 

♦include <aigna,l . n> 

s erv.se tup. intr(aynaae, port .nun, message) 
char •mynaae ; 
u. short port.nua; 
char ^message ; 



struct sockaddr.ia soli, iron; 
iat s, iroaloa, as; 

print! ( "Using port sob Xd\a" , port .an); 
bxoro((char 3 )tsoli, sizooi(soli)); 
soli .sia.iamily » AF.HSX; 
soli, sin, addr.s.addr * XYADDR.AIY; 
soli.sia.port 3 htoas((u.short)port_nn) ; 

/« ii ((soli .sin.addr.s.addr » rhost(taynaao) ) < 0) < 

iprinti(”Caa not dotoxaino addross at sorror\a M ); 
oxit(-l); 

> */ 

ii (Cs * socket (AF.HET , SOCR.STREAM, 0)) < 0) { 
porror< "Could not obtain sociot'* ) ; 
exit(-2); 

> 

ii (ientl(s ,F_SETFL, F1B I0)<0 K 

porror(”icntl F.SETFL, FIBIO**) ; 

•xit(l) ; 

> 

ii (set3ockopc(s, S0L.S0CXET, SO .RTO SgAPDR, (char «)0, 0) — -1) 
pexror( n S3tsockopt : S0.REDS2ADDR") ; 
doso(s) ; 
exit (—4) ; 

> 

ii ( sotsochopt ( s , S0L.S0CXST. SO.DOITLIXGSR, (char »)0, 0) ■» -1) 
pcrror(”setsockopt : SO .RSOSSADDR") ; 
closo(s) ; 
exit (-4) ; 

> 

ii(bind(s, (struct sochaddr *)hsoli, sixooi(soli))) { 
perror(”Biad iailare"); 
closo(s) ; 
exit (-3) ; 

> 

ii (liston(s, S)) { 

porror( “Error in list on**): 
oxit(-l); 

> 

bxoro((chax •)hiroa. sixeoi (irom) ) ; 
iroa. sia.iamily * AF.IJET; 
irom.sia.addr.s.aiddr 3 UADDR.AIY; 
iramlen 3 sizooi(iroa) ; 
print! ( "%s\a", aessage ) ; 

ii ((ns 3 &cc«pt(s, (struct sochaddr «)hiron, kiromlen)) < 0) { 
porTor( "Accept jailed") ; 

*exit(-3) ; 

> 

ii ( i carl ( ns . F.SETOVI , gotpidOXoH 
porrorCicntl F.SETOW*, :*•); 

•xit ( 1 ) ; 

> 

ii (icatKns, F.SETFL, FASYICIFIBIOXOH 


■ 
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perror( H lcatl F^SKTFL, FISTIC*); 
exit(l) ; 

> 

prints ( "Connect ioa has been establiahedNa") ; 

shntdowu(s # 2); 

close(s) ; 

rt tum (ng) ; 


A.4.16 cizcni.c — Sets up Client Socket 

♦include <stdio.h> 

♦include <ermo.h> 

♦include <netdb.h> 

♦include <sys/types ,h> 

♦include <sys/socket ,h> 

♦include <netinet/in.h> 

clieat_setup(host , port_num) 
char «host; 
int port^num; 

< 

struct host eat *hp; 
struct sockaddr.in to; 
int a; 

iat Iport = IPPOET_RESEaVED ; 

bx«ro( (char *)*to , s ixeol ( struct sockaddr_ia) ) ; 

il (U 3 socket (1F_HET , SOOC.STaElH t 0))< 0) { 
perror( M Can not obtain socket* 4 ) ; 
exit(l) ; 

> 

printl( "Client Socket is %d\a" , s); 

il ((hp = get host byname (host) ) == TOLL) { 

IprintlCstderr, "Can not determine server host's addressXn"); 
close(s) ; 
exit(l) ; 

> 

to.sin.port = htons( (u_ short ) port _aum) ; 
to .sin, tangly = hp->h_addrtype ; 

bcopy(hp->h_addr . (char »)*to . sin.addr » sized (to. sin.addr) ) ; 

il (connect ( 3 , (struct sockaddr *)tto, sized(to)) < 0) { 
p error ( "Connect ion 1 ailed" ) ; 
close(s) ; 
exit ( i ) ; 

> 

retarn(s) ; 

> 


1 


i 
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A.5 XCommand — Command Menu Program 


A. 5.1 mXc — Make File for XCommand 


— 

t# 

** 

EXEC* XCowimd 

t# 

## -g * Debugging into 

## -0 * Optimize 

CFL1GS* -g 

#» 

t# Libraries 

## 111 111 graphics library 

## 

LIBS* -lias -lXnm -lit -1111 


a 

* 

OBJECTS* 


a# 

SS 

a# 

<(EXSC) : 

## 


XComand.c \ 

aetblock.c \ 

client . c \ 

syserr * c 


Compile * link 
$( OBJECTS) 

cc $<CFLAGS) -o $(EXEC) KOBJECTS) S(LIBS) 


S* End ot aakt tile 

t# 


A- 5.2 XCommand.c — main() for Program XCommand 

# include "size.limits .h" 
a include ’•portanna.h" 
a include <stdio . h> 
ainclude <X 11 /Intrinaic.h> 
tinelude <Xll/StringDets .h> 
ainclude <X 11 /Xas/List .h> 
ainclude <Xll/Xaw/Command.h> 
ainclude <X 11 /Xaw/Cardinals.h> 
ainclude <Xil/Xas/Paned.h> 
ainclude <Xll/Xaw/AsciiText .h> 


static void RunO , HaltQ, ContQ , ReaetO, QuitO , SingleStep( 
Redraw () f StatsRatesO , StatsTinesO f ReaetStatsQ , DumpO ; 
inn conand. socket ; 


char HOSTS IKES C HAXHOST ] [ NAXLEX ] ; 
int 10 . HOSTS ; 

int out .command [ MAXHOST ]; 


aainO 

{ 

int arge; 
char •*argv; 

int i; 

char but C 100 ] ; 

FILE •in.t, *Topen() ; 


i 


l 


. Fir« 0 , 

1 


J 
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Vidgat toplaval, m, halt , cont, ru«t, quit, singlastap, lira, radrav, 
panad, statsratas, statstinas, rasatstats, dump; 

XtAppContaxt app.con; 

Xrg args Cl] ; 

il ( ( in.l * lopan("XCo*nand. i" , M r rt ))»-!) 
syaarrC M opan XConnand.i" ); 

/* — raad * ol hosts «»/ 
lgata( bul , sizaoK bul ), in.! ); 
sacanl( bul , "VA " , MO.HQSTS ); 

/a — Raad each host nama a/ 

for ( i = 0; i < HO.HQSTS + 1; i++ ) 

{ 

lgats( bul, sizeol( bul ), in.l ); 
sscanK but, "7,s" , ROSTIAMESC i ] ); 

> 

cloaa ( in_l ) ; 

/a — Connact to tokan playars */ 
lor ( i * 0; i < I0_HGSTS; i++ ) 

out_comnandC i ] = cliant_satup( HOSTS AMES C i ], CQHHAIUPQRT ); 

/a — Connact to Display window •/ 

out _ command [HO _ HOSTS ] = cliant.satup( HOSTSAMES C 10. HOSTS ] , DISPLAYPQRT) ; 

toplawal » XtAppInitializa(kapp_con, ,# Xlist M , HULL, ZERO, 

(Cardinal •) Aargc, argr, HULL, IULL, ZERO); 
panad a XtCraataManagadVidgat("panad" , panadVidgatClass , toplawal, 

IULL, ZERO); 

ran = ItCraataManagadVidgat("start" , conmandVidgatClass, panad, 

TOLL, ZERO); 

halt = Xt Cr eat aManagadWidgat ("halt” , conmandVidgatClass, panad, 

TOLL. ZERO); 

cont = XtCraat aManagadWidgat: (" cont inua" , conmandVidgatClass, panad, 

HULL, ZERO); 

rasat » XtCraat aManagadWidgat ( "rosat" , conmandVidgatClass , panad, 

IULL , ZERO); 

quit s XtCreataManagadWidgat("auit" , conmandVidgatClass , panad, 

IULL, ZERO); 

singlastao = XtCraat aManagadWidgat ( "singla stao" , conmandVidgatClass , panad, 

TOLL, ZERO); 

lira = XtCraat aManagadWidgat ("lira" , conmandVidgatClass, panad, 

HULL, ZERO); 

redraw = Xt Croat aManagadWidgat ("redraw" , conmandVidgatClass , panad, 

HULL, ZERO); 

statsratas = XtCraat aManagadWidgat ( " display stats ", conmandVidgatClass, 

panad , HULL , ZERO ) ; 

statstinas = XtCraat aManagadWidgat ( "rates / tunas lired", conmandVidgatClass, 

panad, HULL, ZERO); 

rasatstats = XtCraat aManagadWidgat ( "rasat stats", conmandVidgatClass, panad, 

HULL, ZERO); 

dump * XtCraat aManagadWidgat ("Hat Listing", conmandVidgatClass, panad, 

HULL, ZERO); 

Xt AddCallback ( run , XtHcallback, Run, ( XtPo inter ) HULL) ; 

It AddCallback (halt , XtHcallback, Halt, ( XtPo intar) HULL) ; 

Xt AddCallback ( cont , XtHcallbacX, Cont, t XtPo intar) HULL) ; 



100 


XtlddC*llb»ck(r«a«? , Xtf callback , lcs«t, (XtPoint«r)HJLL) ; 

It AddCallbcck ( qu it , Xtlcdlbcck, Quit, (XtPoiatcr)lUU.) ; 
XtAddCallbackUiaglMtap, Xtl callback. SinglcStcp, (XtPoixrtcr)IOLL) ; 
XtiddCallbackCi ire , Xtlcallback. Fix*. (XtPoiatar)IOlL) ; 
XtiddCallback<r*draw, Xtlcallback. Icdrav, (XtPo inter )IUL 1 ) ; 
XtlddCallbackCscatsratoa , Xtlcallback. Statakates, (XtPoiat«r)IULL) ; 
XtiddCallbackC statst iacs , Xtlcallback. StataTlacs. (XtPoiat«r)TOLL) ; 
XtlddCaUback(r«a«tstat3 , Xtlcallback. EaaatStata. (XtPoiatar)HJLL) ; 
XtiddCallbackCduap , Xtlcallback, Dusp, ( XtPo iat ar ) IULL) ; 
Xt&aalizatfidgat (toplaTal) ; 

XtippNai2iLoop(app_coii) ; 


/* 

*» writ«_com( cowaand ) 

** 

e* Writ as the coma and to all tbe sockets 

*/ 

void write. com( command ) 
long command; 

< 

long busier C 2 ] ; 
int i; 

/* — writ a to tbe token players •/ 

buiter C 0 ] * command; 

tor ( i * 0; i < IQ.HOSTS ; ) 

it ( write (out.commandC i ] , bnttar , sireci (butt ar) )*»-!) 
syaarr( “write out .command Q M ); 

/* — Writa to zhm XDisplay s«n«r «/ 
butter C 1 1 x coind; 
butter C 0 ] » 10 .HOSTS; 

it ( write (out.commandC i ], butter, airaot (butter) )**-!) 
ay a err ( '’write out.commandD" ); 

> 

/* Function Kama: Run 

« Description: Issues ROT command 

*/ 

static void Run( widget, client .data, call.data) 

Widget widget; 

It Pointer cl ient.dat a, call.data; 

{ 

write. com( 1 ) ; 

> 

/+ Function Hama: Halt 

« Descriotion: Issues Halt command 

•/ 

static void Halt (widget, client .data, call.data) 

Widget widget; 

XtPo inter client .data, call.data; 

i 

write. com( 2 ) ; 

> 

/* Function Hama: Cont 


i 


i 
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* Description: Issues Continue commend 
•/ 

static void Cont( widget, client .data, call .data) 

Vidget widget ; 

ZtPo inter client .data, call .data; 

{ 

write. com< 21 ) ; 

> 

/+ Function lame: Reset 

« Description: Issues Reset command 

*/ 

static void Reset(widget , client.data, call.data) 

Vidget widget ; 

XtPointer client.data, call.data; 

{ 

write. com( 3 ) ; 

> 

/* Function lame: Quit 

* Description: exits tile application. 

*/ 

static void Quit (widget, client.data, call.data) 

Vidget widget ; 

XtPointer client.data, call.data; 

int i; 

write. com( 4 ) ; 

dor ( i » 0; i < IQ.HCST5 * 1; ) 

close( out.coMandC i ] ) ; 

XtDestroyApplicationContext(XtVidgetToApplicationContext(widget)) ; 
exit (0) ; 

> 

/* Function lame: SingleStep 

* Description: Issues SingleStep command 

*/ 

static void Singles tap (widget, client.data, call.data) 

Vidget widget ; 

XtPointer client.data, call.data; 

{ 

write. com( 5 ) ; 

> 

/* Function lame: Fixe 

* Description: Issues Fire command 

*/ 

static void Fire(widget, client.data, call.data) 

Vidget widget; 

XtPointer client.data, call.data; 

{ 

write. com( 8 ) ; 

> 

/* 


Function Same: Redraw 
Description: Issues Redraw command 
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•/ 

static void Radraw (widgat , client .data, call _ data) 

Widget widget ; 

ItPoiatar client.data , call_4ata; 

{ 

writa.co*( 7 ) ; 

> 

/* Function I ana : Redraw 

* Daacxiption: Redraw tRe nat. 

*/ 

static void StatsRatea(w, text_ptx, call.data) 

Widget a; 

ItPoiatar text.ptr, call.data; 

l 

wxite.com( 3 ) ; 

> 

/• Function lam: StatsTinaa 

• Daacxiption: TRis function togglaa batman xataa and tinaa fixad. 
*/ 

static void StatsTinaa(w, text.ptr, call.data) 

Widgat a; 

ItPoiatar taxt.ptx, call.data; 
wxita_con( 9 ) ; 

> 


/« Function lam: RaaatStata 

a Daacxiption: Raaat fixing counter and tiaar. 

•/ 

static void ResetStats(w, taxt.ptx, call.data) 

Widgat a; 

ItPoiatar taxt.ptx. call.data; 

l 

arita.con( 10 ) ; 

> 

/« Function laaa: Dump 

« Daacxiption: TRis causas a dump of tRe data of nat 

*/ 

static void Dump(w, taxt.ptx, call.data) 

Widgat a; 

ItPoiatar taxt.ptx, call.data; 
arita.coaC 11 ); 

> 


A.6 X Display — Displaying the Petri Net Under Execution 

A. 6.1 mXd — Make File for XDisplay 
is 
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ICn—and 

-g * Debugging info 
-0 * Optimize 

-8 

Libraries 

111 111 graphics library 

LIBS* -llaw -llmu -lit -1111 

A 

A 

OBJECTS* XCommand.c \ 

setblock.c \ 

client . c \ 

syserr . c 

## 

AA Compile A link 

AA 

A (EXEC) : A (OBJECTS) 

cc A(CFLAGS) -o A(EZEC) SUBJECTS ) A(LIBS) 

A# 

## 

AA End of make file 

AA 


A. 8.2 Xdraw.h — Data Structure Definitions 

Adeline Of 0 
Adeline OUT 1 
Adeline HH 2 


/♦Adeline DEBUG 1 1 
/♦Adeline DEBUG 1 2 
/♦Adeline DEBUG3 3 

Adeline XXII 0 
Adeline XXII 550 
Adeline YXII 0 
Adeline THAI 7S0 
Adeline OlfSize 1 
Adeline Units ize 18 
Adeline Grids ize Unit Size* 3 
Adeline GridOll 100 
Adeline Dia Units ize 

Adeline Dia2 13 
Adeline AKMVL 10 

Ainclude "size^Iimits .h M 

« mag(z, oil) Converts the Grid Coordinates to the real coordinates 
« on the screen, z is the grid number, oil is the ollset on that 

* grid. 

* -/ 

Adeline mag(z, oil) ((z * GridSize + oil * OllSize + GridOll)) 


/* — These deline arc types •/ 


— Print input from token players */ 

— Print firing sequence k narking ♦/ 
— Enable testing function */ 

/* — These lour parameters define X window */ 
/* size. */ 


EIECa 


AA 

A# 

CFLAGSa 

AA 

AA 

AA 

AA 
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•truce PL { /* ~ 

chsr «uim; /• 

flout x^pos, y.pos; 
flout xt.pos, yt_pos; 
int tokens ; > ; 

struct T3t { /• “ 

char *sim; 
flout x.pos, y_pos; 
flout rt_pos, yt_pos; 
flout xr_pos, yr_pos; 
long tines.fired; /* — 

long old,tiaes_firsd; /* — 

flout ruts; /+ — 


int hi.ghligth.od ; 
int typo; 
int rot ; > ; 

struct obj { /* — 

chur *nane; 
int host jno ; > ; 

struct hosts { /* — Host info */ 

char H0STV1XEC XAZLEV ] ; 
int L0C1L.PULCSS ; 
int lOjnuISITIOIS; 
int socket; 

struct PL PC MirnUIS J; 
struct TE TC HAXTHA1S ] ; 

>; 


This structure is used to store info •/ 
re. pluces at such host */ 


Info ubt . transitions for such host */ 


Counter for • of tines trans . fixed */ 
Counter for • of tines trans. fired */ 
Keeps lust written awg. firing rate */ 


nano and host assignnent of all places*/ 


l 


i 


•tract gwr -C /• — Info abt. global B a rkin g ▼ actor */ 
char *um; 
int tokoaa; 
float x_po« , j.poa; 
float rc.poa , yt_po« ; 

>; 


A.6.3 X Display. c — mainO and Routines for Reading Net Structure 

•include M size_lin±ts.h” 

•include "portnuas.h" 

•include <stdio . h> 

•include "defs.h" 

•include <string.h> 

•include <sys /types .h> 

•include <sys / socket .h> 

•include <netinet/in.h> 

•include <netdb.h> 

•include <fcntl.h> 

•include <err no.h> 

•include <signal.h> 

•include <nath.h> ] 

•include <Xll/Xlib.h> 

•include "Xdraw.h” 

extern Display *theOisplay; 
extern IE vent theEvent; 

Window thetfindow, opentfindowQ ; 


I 
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<5C theGC; 


•tract obj PLACES C lUXTUIS 3; /• 

struct obj TKAISC HU HilS ]; /• 

struct hosts HC HAXHOST ]; /* 

struct gur CMC MAXTRAIS 3 ; /* 


iut 5L0BAL.PLACES ; 
int I0.H0STS; 
iut lO.PLACES; 
iut 10 .THAIS; 

BOQLEAI display. stats » ‘FALSE; 
B00LEAI »Tg_nt« a THUS; 

iut layer a 0x7FF; /* 


BOCLEA1 run a FALSE; 

300I.KAI singla.step a FALSE; 

/* — 


naae and host assignment o f all places*/ 
naae k host of all trans . •/ 

All not inf or stored hors •/ 

Info abt. global aarhing vector */ 


Stores which layer is to be displayed 
0x400 - global places only 
0x7FF - ewerything 

0x7FF XQK (host t) - toggle host on/ off 
*/ 


*• input.interrupt.handlerO 

** When an I/O interrupt is issued, this routine is called. 

** The procedure sets a flag. 

void 

input interrupt _haadlsr() 

printf ; fflush( stdout ); 


void alara_handler( ) 

{ 

printf ('•■*■••) ; fflush( stdout ); 

> 

/* 


ini t .hosts O 

Initializes the HQ datastructure by reading the include file 
generated by assign. c 


init .hosts O 

{ 

FILE *ia_f , »f open() ; 
char buf (1024] ; ’ 
char cup Cl 024] ; 
int i; 

if ( ( in_f * fopen(“IDiaplay .i“, "r" ) ) s» -i ) 
syserr( "open XDisplay.i" ); 

/* — Head S of hosts & global places •/ 
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lgees( bul, sized ( bul ), in.i ); 

sscanK bul, "Xd Xd Xd Xd", tIO.HDSTS. WLOIAL.PLACES, tlQ.PLACES , 
tIO.TRAIS ); 

/* — Reed each hove um */ 
lor ( i ■ 0; i < lOJOSTS; i-n- ) 

lgets( bul , sizooK bul ), in_l ); 

sscanK bul, "Xa Xd Xd", tlC i 1 .10STIAKE, Ui i ] . LOCAL, PLACES . 
tlC i ] .I0.TRHSITI0IS ); 

> 

/• — load place inlo •/ 

lor ( i * 0; i < TO .PLACES ; i++ ) 

{ 

lgoes( bnl, sizeoK bnl ) . ia_l ); 

sscanK bul , "X* Xd", tsp, tPLACSSC i ]. hoae.no ); 

strcpy ( PLACES C i 3 .naae ■ (char • ) aalloc(szrlen(tap) + 1), tap); 

> 

/• — head transition inlo */ 
lor ( i * 0; i < 10 .THAIS ; i++ ) 
i 

lgoea( bol, sizooK bel ) , in.f ); 

sscanK bul, "Xu Xd", tap, *TRAIS[ i 3 .host.no ); 

sercpy(TRAISC i ] .aaao * (char •) aalloc(serloa(tap) ♦ 1), tap); 

> 

/* — Road inhibitor arch stall «/ 

/• — rams TO BE IXPLEMBTim «/ 

close ( in.1 ) ; 


> 



gethost (aaae ) 


mm Searches the PLACES and TRAIS arrays to lind the host the object is 

assigned to . 


•/ 


int gethost ( name ) 
char «naaeQ ; 

-C 

int i; 

lor ( i * 0; i < I0.PLACES; i++) 
il ( !strcap(naae, PLACES Ci3 .aaae) ) 
return ( PLACES Ci3 .host.no) ; 

lor ( i = 0; i < JO .THAIS ; i+-0 
il ( ! str cap (name , THAIS Ci3 • aaae ) ) 
retnm(TEAIS Ci3 .host.no) ; 

retuxn(-l) ; 

> 

/* 


1 


I 


107 


** getnoaCboet, obj_naae) 

*• 

** Ratuu tb# local objoct lumber given a boat and the object nan*. 

•* Searches the PLACSS and THAIS arrays, 

ee 

*/ 

int getnna(host, oaue) 
int host; 
char «nane □ ; 

i 

int i, plno ; 
plno a 0 ; 

lor ( i * 0 ; i < I 0 .PLACES; i-w-) 

< 

il (!atr cap (name. PLACSS Ci] .name) Aft PLACSSCil-bost.no « boat) 
retnm(plno) ; 

iKPLACSSCil-bost.no = boat) 
plno++; 

> 

plno 3 0 ; 

lor ( i * 0 ; i < 10 .THAIS; i++) 

■C 

il ( !str cap (nano, THAIS Cil .naae) tt THAIS Cil -boat _n© >* boat) 
retnrn(plno) ; 

il (THAIS Cil . boat _ao s» host) 
plno-*-*- ; 

> 

ratnra(-l) ; 

} 




mm 

mm cb«ch_lay«r( host: ) 

mm 

ChscJcs il ths givsn host ntuabsr is corrsntly snablsd lor 
** displaying. 

** 

*/ 


int chsck_laysr( host ) 
int host; 

{ 

/m — Convert to corrsct bit placsasnt •/ 
il ( host *» -1 ) 
host = 0x400; 

else 

host a (l«host); 

il ( host * lay or ) 
rstnra 1 ; 

slss 

rstnm 0; 


g«_g«o,inloO 
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mm 

** load# tbo tost .not til# - tbo original GSPI lilt to got tbo 

mm goograpbical into. Tbis procodnro in an adaption of "not 2a. c" , 

oo or it ton by Androms Kowmtzyb CagnOtmb.es . cna.odu). 

mm 

mm Z£ rairask is tn«, nka markings in H ara usad, alsa . tha m a rkin gs in 

.* nka .nan Iila. 

•/ 

void, draw_gao_inio(rairasn) 
iat r sir sah ; 

< 

FILE «in_i ; 

ragisnar inn i , j ; 

inn nJOC, a_PL, a_ET, n_TR, a_GR; 

inn tokana, h., obj_no, nypa, ao_d.p , rot, mlt, iron, no, gao, oun_dap , 
ink. arc; 

inn gatr.counnar ; 

iloan x.pos, y_p oa, re.poa, yn.poa, s.pos, yr_poa, zl.poa, yl.pos, rata; 
char bui Cl024] , «pCl0243 ; 

ior ( i a 0 ; i < 10.9QSTS; i++ ) 

i 

spranni (tap , "Host: Xd : Xs M , i, HC i 3 .HOSTIAMK ); 

»riua_nag(rnp, 10, 80 * 20»i ); 

> 

ii ( !m n ) 

arina_nag("HALT", 10, 10); 

alsa 

arina_nag(”!l01" , 10, 10); 

ii ( singla.snap ) 

srina_nag("SIIGLE_STEP", 10, 30); 

ii ( ( in_i * i opaa ("naan. nan " , "r** ) ) *■ -1 ) 
sysarr( "opan naan.aan“ ); 

aliil a (igans( bui, sizaoi( bui ), in_i )) /• skip praaabla •/ 

ii (bui [ 0 ] == * |* kk bui Cl] 33 ’\n’ ) 

braak; 

ii (!igans( bui, sizaoi( bui ), in_i ) 115!= sacani(bui, M X*sXdXdXdXdXd" , 
kn_MK, ka_?L, kn.ET, ka.TR, ta_GR) I I 

a_HK <011 n_PL < 1 I I a.RT <011 a_TR < 1 I I n_GR < 0) 
sysarr( "Bogus paxaaanars" ) ; 

ior (i = 0; i < a_MK; i++) /• Skip aark-paraaanars */ 

ii ( !igans( bui, sizaoi( bui ), in_i )) sysarr(**?raauinura and oi iila 11 ); 

gna_counnar = 0; 

ior (i = 0; i < a_PL; i+-0 /* raad placaa */ 

{ 

ii (!igans( bui, sizaoi( bui ), in.i )) syaarr("PramaUura and oi iila**); 
ii (6 != sscaniCbui. ''XsXdXiXiXiXi" , nap, kuokans, kx_poa, ky.poa, 
kzn.poa, kyn.pos)) 
sysurr("Placa dai problaa'*); 

h = ganhosn (nap) ; 

ii ( h >» 0 ) 

{ 
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obj.no * getnua(h t tap) ; 

strcpy(HCh] .PCobj.no] .name a (char *) malloc(strlen(tap) + 1), tmp); 
HDx3 .PCobj.no] .tokens » ( relresh ? HOx] .PCobj.no] .tokens : tokens ); 
H 0x3 .PCobj.no] .x.pos * x.pos; 

HQi] .PCobj.no] .y.pos a y.pos; 

HQx] .PCobj.no] .xt.pos a xt.pos; 

HQx] .PCobj.no] .yt.pos a yt.pos ; 

else 

i 

obj.no a gnu. count eg »+ ; 

strcpy( GXCobj.no] .naae a (dur *) malloc(strlen(tap) ♦ 1), tap); 
GXtobj.no] .tokens a ( relresh ? GX Cob j.no] .tokens : tokens ); 
GXCobj.no] .x.pos a x.pos; 

GXCobj.no] .y.pos a y.poe; 

GXCobj.no] .xt.pos a xt.pos; 

GXCobj.no] .yt.pos a yt.pos ; 

> 

il ( check.layer( h ) ) 

{ 

draw.place(h, obj.no) ; 

dr aw. tokens Ox. obj.no. tokens, refresh); 

> 


lor (i * 0; i < a.RT; i-*~0 

it (!lgets( bu 1, sixeol( bu t ), in .1 


/* Skip rate-paraaeters */ 

)) syserr( "Premature end ol file**); 


lor (i a 0; i < a.GR; i++) 

it (!lgeta( bxxl, sixeol( bul ). in.t 


/* skip groups •/ 

)) syaerr( "Premature end ol tile 1 *); 


lor (i a 0 ; i < n.TE; i++) /a read transitions •/ 

< 

it (!lgets( bnl. sixeoK bnl ), in.l )) sys err ("Premature end ol tile"); 
it (11 'a sscanl(bul. ‘*foXK*d!4d%d%d XlXlXlXlHHtl* 1 . tap, trate, 
ktype, tno.dep, trot, tx.pos , ty.pos, 
txt.poa , tyt.pos, kxr.pos, tyr.pos)) 
syserr(’*Traasition del problem**); 


h a gethost (tap) ; 
obj.no a getnum(h, tap); 

strcpy(HCh] .TCobj.no] .naae * (char *) aalloc(strlen(tap) + l) , tap); 
H Ox] .TCobj.no] . type = type; 

HQx] .T£ob]_ao] .rot = rot; 

H Ox] .TCobj.no] .x.pos a x.pos; 

H Ox] .TCobj.no] . y.pos a y.pos; 

H Ox] .TCobj.no] .xt.pos a xt.pos; 

HOx] .TCobj.no] .yt.pos a yt.pos; 

HQx] .TCobj.no] . xr.pos a xr.pos; 

H Ox] .TCobj.no] .yr.pos a yr.pos; 


il ( cixeck.layer( h ) ) draw.trans(h, obj.no); 

lor (j a ao.dep; j — ;) /* read inputs •/ 

il (!lgets( bul, sixeoK bnl ), ia.l )) 
syserr ("Premature end ol lile**); 

il (3 != sscanl(bul , ,a %d%d%d M v ftault, tlroa, tgeo)) 
sys err (‘•Transition input del problem**); 
il (mult < 0) omit « -suit ; 
while (mult — ) 
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£ 


if 

£ 


Ogoo) 


it ( cbocb.l ayor( b ) ) 
draw.simploarc (fron- 1 , 


olso 

{ 


b, obj.no, suit, IV); 


goo — ; 

fgota( but, sizoof( but ) , in _f ); 
aacanfCbuf, "UfXf", ta.poa, *y.poa); 
if ( cbocb.lay«r( b ) ) 

start. arc (h t obj.no, x.poa, y.po«, H); 
obilo (goo — ) 

fgots( but , aizaof( but ), in_f ); 
sacanf(buf, "%f%f " ,Jtxl.poa, Vyl.poa); 
if ( cboci.lay«r( h ) ) 

draw.arc(x.poa, y.poa, xl.poa, yl.poa); 

x. poa = xl.poa; 

y. poa = yl.poa; 

> 

if ( chock.layor( b ) ) 

ond.arc(fro»-l, x.poa, y.poa , H) ; >» 


it (!fg«ta( but, sizoof( but ), in.f )) sya«rx( "Pronatnro ond of fila 4 *); 
if (1 !* aacanf (buf, "7.d", tout .dap)) 
sysarr("TK output problon"); 

for (j * out .dap; j — ;) /• road outputs */ 

if (!fgats( buf, sizaof( buf ), in.f )) 
aya«rr("Pro«aturo ond of fila"); 

if (3 !» sacanf(buf, "%d%dXd" , tault , too, tgoo)) 
syaorr( "Transition output dot problan*'); 
if (wilt < 0) wilt s -unit ; 
obilo (wilt — ) 

£ 

if ( ! goo) 

{ 

if ( cbock.layor( b ) ) 

drau.3inploarc(to-l , h, obj.no, wilt, OUT); 

> 

also 

{ 

goo — ; 

f gots( buf P sizaof( bnf ) f in.f ); 
sacaaf(buf. ”/if%f M t fcx.poa, Vy.poa); 
if ( cbacb.layar( b ) ) 

start. axc(b, obj.ao, x.poa, y.poa, OUT); 
obilo (goo — ) 

£ 

fgots( bnf, aizaof( bnf ), in.f ); 
sscanf(buf p "XfXf", txl.poa, Vyl.poa); 
if ( cbac*.layar( b ) ) 

draw.arc(x.poa , y.poa, xl.poa, yl.poa, OUT); 

x. pos 3 xl.poa ; 

y. pos * yl.poa; 

> 

if ( cbock.layor( b ) ) 

ond.arc(to-i , x.poa, y.poa, OUT); > > > 
if (!fgota( buf P aizoof ( buf ) p in.i )) ay a arr( "Pronature ond of file"); 
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il (1 !* aacanl (bul , "%d", tinh.arc) ) 
ayaorx("*ni output problas" ) ; 

lor (1 « inh.arc; j — ;) /* raad inhibitor ares */ 

< 

il (!lgota( bul, sizaol( bul ), in.l )) 
syaorr("Pru*atura and ol lila**); 

il (3 !» sscanl(bul, H %d%d%d M , teult , fcto , tgao)) 
syaorr( "Transition inhibitor dal problas''); 
il (suit < 0) salt = -suit ; 
vhilo (salt — ) 

< 

il (!g«o) 

il ( chach_layor( h ) ) 

draw_sisplaarc(to-*l , h, ob j_ao , suit, I1H) ; 

also 

{ 

g««-~: 

lgots( bul, sizaolC bul ), in_l ); 

sscanl(bnl, ">J1%1", tx.pos, ky.pos); * 

il ( chack.layar ( h ) ) 

start_arc(h, obj.no, x_poa, y.poa, LIU) ; 
shila (goo — ) 

{ 

Igata ( bul, sizool( bul ), ia.l ); 
sacanl(bul, “HlXl", kzi.poo, kyl.pos) ; 
il ( chock_layor( h ) ) 

draw _ arc ( z.pos , y.poa, xl.poa, yl.poa, HH) ; 

x. poa a xl.poa ; 

y. poa a yl.poa; 

> 

il ( chack.layar ( h ) ) 

and_axc(to-l , x.poa, y.poa, HU) ; > > > > 


/, 

a* 

** highlight ( host, obj.uua, soda ) 

mm 

** Highligh ts a transition selected by (boat , obj_au») * Mode selects 

on or oil . 

*/ 

void highlight (ho st , obj_au» ) 
int host, obj_num; 

int x, y; 

x = nag(HChost] .TCobj.num] .x.pos , 0); 
y s nag(H Chost] .TCobj.aum] . y.pos, 0); 

XFiHRsctaagls( theDisplay , thoVindov , theGC , 
x - Dia/2, y - Dia/2, 

Dia t Dia) ; 

> 

/* 

«* 

+* firing( bui ) 

mm 

** Highlights all fired transitions passed in bui. 


j 



int ctr; 


/* — Counter for reading tie firing/ n a rkin g buffer*/ 


♦ifdef QEBUG2 

printf ( "Firing sequence : M ); 

for (ctr * 0 ; ctr < Ht buft 0 ] ] .10 .THAIS ITIOIS; ctr++ ) 

if ( buf t ctr + 1 ] > Ht buft 0 ] ].TC ctr ] .old_ti*es_fi red ) 
priatf ( ,# %d " , buf C ctr + 1 ] ) ; 
printf ( w \n" ) ; 
tend if 

/* — Set interrupt timer to flash the transitions for . . .msec •/ 
set.intr<0 , 380000 ) ; 

/* — Draw block over fired transitions */ 

IS etFunct ion (theDi splay , theGC, Glint art) ; 

for ( ctr = 0; ctr < Ht bolt 0 ] ] .I0.THAISITI0IS ; ctr++) 

if ( buf C ctr + 1 ] > BC buf C 0 ] ] .Tt ctr ] .old_ti*es. fired ) 
if ( check.layer( buf C 0 ] ) ) 
highlight ( buf [ 0 ] , ctr ) ; 

ZFlush(theDisplay) ; 

/* — Pause long enough to see the block */ 
panaeQ ; 

/* — Invert block again to get ba c k transition */ 
for ( ctr * 0; ctr < HC buft 0 ] ] . I0.THAI3ITI01S ; ctr++) 

if ( buf [ ctr > 1 ] > Ht buf C 0 ] ].Tf ctr ] . old_ti*es_f ired ) 
if ( check.layer( buft 0 ] ) ) 
highlight ( buf [ 0 ], ctr ) ; 

ZFlush(theOisplay) ; 

ISetFunctionCtheOisplay , theOC , GXcopy ) ; 


/* 

mm 

mm local. narking ( buf ) 

mm 

mm Updates the token count in each place for one host, buf contains 

«* the local marking vector for one host. 

*/ 

void local. marking ( buf ) 
short buf □ ; 

{ 

int ctr; /* — Counter for reading the firing/marking buffer*/ 
int i; 

tifdef DEBUG2 

printf ( "Local Harking : H ); 

for ( ctr » i + Ht buft 0 ] ] .10 .THAIS ITIOIS; 

ctr < 1 + H t buf [0] ] .XQ.THAXSITiaiS + Ht buf C 0 ] ]. LOCAL. PLACES ; 
ctr++ ) 

printf ( "?.d " , buf t ctr ] ) ; 
printf ( "\a" ); 



#«ndif 


for ( i » 0, etr » i ♦ HC bufC 0 ] 3 .lOjnuiSITCOHS; 

cer < 1 ♦ EC bufC 0 3 ] .IQjnUVSXTXOIS ♦ IC buf C 0 3 ] . LOC AL_ PLACES ; 

i++ , CZT++ ) 

< 

if^( chack_iayar ( buf [ 0 ] ) ) 

ara*a_tokans( bufC 0 ], i); 
dra*_tokana( bufC 0 3, i, bufC ctr 3, 1); 

> 

HC bofC 0 ] ] .PC i 3 .tokana * bolt ctr 3 ; 

> 

> 


/* 

•/ 


global_uarking( buf ) 

Updataa tha tokan count in aach global placa . 


to id global_uarking( buf ) 
short buf □ ; 

< 

int ctr; /• — Countar for raading ths firing/ Marking buff or*/ 
int i; 

kifdof 0EBUC2 

printf ( "Global Narking : " ) ; 

for ( etr * i ♦ It bufC 0 ] ] .la.nUISITCOIS > HC buf C 0 ] ] .LQCAL_PLACSS; 
ctr < 1 + HC buf C 0 ] ] .HO.THAISITCOHS ♦ HC buf C 0 ] ] .LOCAL, PLACES 
♦ GLQBAL.PLACSS ; ctr » » ) 
printf ( "%d •• , buf C ctr ] ) ; 
printf ( "\n‘* ) ; 
kandif 

for ( i = 0, ctr * 1 + HC buf C 0 ] ] . JO.TIUHSITIOHS + 

HC bufC 0 ] ] .LOCAL. PLACES; 

ctr < 1 ♦ HC bult 0 ] ] .lO.TRAHSITiaiS * HC bufC 0 ] ] .LOCAL.PLACSS 
+ GLOBAL_PLAC£S ; i-w-, ctr++ ) 

i 

if^( chack_lay«r( -1 ) ) 

araaa_tokans( -1, i) ; 

dra»_tokana( -1, i , bufC ctr ]. 1 ); 

> 

GN C i 3 . tokana a buf C ctr ] ; 

> 

> 

/* 

«* 

« r«ad_play«r_socket3() 

mm 

mm Reads each, socket and upda tea the vindoe according to ?ha t is 

** received. 

•/ 


void read^player.socketaQ 
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short in.bnllsrC 2 a 2aMAXTRAIS ] ; 
int i t j 9 host.no, nrssd; 

BOflLKAl ompty; 

ompty * FALSE; 
whilo ( ! ompty) 

< 

ompty a TRUE; 

/a — Road tho sockets tr om the token playors a/ 
lor ( j * 0; j < 10 .HOSTS; j++ ) 

it ( nrsad a read( HC j ] .socket, in.bntlor, sizeoK in.bnller ) ) 
> 0 ) 

{ 

host.no a in.bnllerC 0 ] ; 
empty a FALSE; 


♦ildol DEBUG 1 

prinel( ”\nHost Xd ; H , host.no ); 

lor( iaO; i < 1 + HC ia_bnllerC 0 ] ] .IO.TEAISITIQIS a 
H Cin.bnll or CO] ] .LOCAL.PLACES a GLOBAL. PLACES ; i+a ) 
printl("1id H , in.bnllerC i 1); 
prxntK"\n ,# ); 

tondil 

/a —rt-ing TOCtOT roCOitOd a/ 

local .marking ( in.bnll or ); 
global.marking< in. bail «r ) ; 

/a — Transition tiring sequence received a/ 

tiring( in.bntlor ); 

update. stats( in.bntlor ) ; > > > 

> 


mm 

mm r oad. command. 3 ockot() 

mm 

mm Roads eke socket from XCommand* 

*/ 

▼old r oad. command, sock at Q 

i 

short in.bullerC 1 a 3aMAXTRAIS ] ; 
int i, j , nrsad; 

fm — Road sock or from command window (lots, XCommand writes long ints 
whilo XDisplay roads short ints */ 
nrsad a road( 3C JO. HOSTS ] . sockot , in.bntlor, sizeolC in.bntlor ) ) ; 
it ( nrsad > 0 ) /* — have road a cosmand */ 

{ 

it (in.bnttsrC 1 ] 10. HOSTS ) 

print! ( ‘Sockot tor XCommand written to by host Xd\n" , 
in.bntlor [l] ); 

olso 

{ 

print! ( "Command received : Xd\a**, in.bntlor C 3 ] ) ; 
switch ( in.bnttorC 3 ] ) 

{ 

caso 1 : 

it ( ‘run ) 


/a — ROT •/ 



{ 

init.elapeed.timeO ; 
ran * THUS; 

st.eraseQ ; 

writ e_tag( "HALT" , 10, 10); 
st.aoraalO; 

write.tag( w EUI" , 10, 10); 

> 

else 

write.tag( H RUI M , 10, 10); 
break; 

case 2 : /* — HALT */ 

il ( ran ) 

i 

run. s FALSE; 
st.eraseO ; 

write.tag( M RUI", 10, 10); 
st.aormalQ ; 

write.tag( M HALT" , 10, 10); 

> 

else 

write.tag( M HALT" , 10, 10); 

break; 

case 21 : /* — CUITUUE */ 

ran = TRUE; 
st.eraseO ; 

write. tag( H HALT" , 10, 10); 
st .normal O ; 

write.tag^ROT'*, 10, 10); 

break; 

case 3 : /* — RESET •/ 

clear.net Q ; 
draw.geo.ini o( 0 ) ; 
break; 

case 4 : /* — QUIT */ 

print! ( "XDiaplay terminating \n M ); 
quitXO ; 

tor ( i 3 0; i < V0 .HOSTS + 1; i++ ) 
cloae( H[ i ] .socket ); 
ent( 0 ); 

case 5 : /* — Single Step +/ 

it ( single. step ) 

{ 

single. step = FALSE; 
st.eraseO ; 

write.tag( M SIEGLE.STEP M , 10, 30); 
st .normal () ; 

> 

else 

{ 

single. step » TRUE; 

write. tagOSIIGLE.STEP", 10, 30); 

> 

break; 

case 6 : /+ — FIRE */ 

break; 

case T : /• — REDRAW •/ 

clear.net () ; 
draw .geo, in* o( 1 ) ; 
break; 
case 3 : 


/• — Stats 01/ OFF 
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> 


il ( display. stats ) 

< 

display.stats * FALSE; 
dear.statsO ; 

> 

•las 

{ 

display.stats « TRUE; 

updat e.all. stats () ; 

break; 
cast 9 : 

dear.statsO; 
it ( awg_rate ) 
awg_rate * FALSE; 

•las 

aTg_rat« * TRUE; 
updat «. all. statsQ ; 
break; 
case 10 : 
reset.statsO ; 
break; 
case 11 : 

break; > > > 


/* — Sslsct ratss or tines */ 


/+ — dtsp a«t data to- screen */ 


/* 

■ainO 

Waits lor a fir lag sequence Iroa and a rector Iron a host sad 

displays the inlo in the Zvindov. 

*/ 

aain() 

i 

int i, count 1 » 0; 


init .hosts () ; /* ~ Read inlo abt. Petri 1st */ 

initlO; /* — Initial ize X window •/ 

the Window = open Window ( UIIZ , YMII t XHAX , YMAX , 0 , ktheGC) ; 

initXEvents ( thstfindow ); /* — Initialize X event queue »/ 

ualeep< 400000) ; /* — Wait long enough lor window to be set up »/ 

draw.geo.iiilo( 0 ) ; /* — Draw net in window */ 

XFlush(theDisplay) ; 

/* — Set up connections +/ 

lor ( i s 0; i < IQ.30STS +1; i++ ) 

{ 

H[ i 3 . socket 3 serv.setup.intr( HC 0 3.H0STRAME, DISPLAYPORT , 

"XDisplay waiting lor n«zt connection**); 

setblockC 3C i ]. socket, FALSE ); 

> 


init. elapsed. timeQ ; 

signal (SIGALRM, alarn. handler) ; /« — Set signal lor interrupt timer */ 

set.intr(l ,0) ; 

signal (SXGIO , inpur. interrupt .handler) ; 
printlC "XDisplay listening ..An** ); 
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while ( TRUE ) /e — Do until emit */ 

{ 

suit cli ( count 1++ ) 

{ 

cm* 0 : print*( "\b- w ); break; 

case 1 : print* ( M \b/" ); break; 

case 3 : print*( M \bl" ); break; 

case 4 : print* ( "\b\\ H ); hr oak; 

case 5 : count 1 » 0; break; 

> 

**lush( stdout ) ; 

pause () ; /* — Wait *or io */ 

read, command^ socket () ; /* — Check, for a 11. events and update window*/ 

r ead, player, sockets 0 ; 

XEventHandlerQ ; 

set_intr< 1,0); /* — Sot tinor interrupt for 1 see. and +/ 

display_elapsed,ti»eQ ; /* display olapaod tine */ 

> 


A. 6.4 Xdraw.c — Drawing Routines for net 

♦include "sire, limits .h H 
♦include <stdio . h> 

♦include "defs.h" 

♦include <string.h> 

♦include <sys/typ*e .h> 

♦include < sys/ socket .h> 

♦include <netinet/in.h> 

♦include <uetdb.h> 

♦include <lcntl.h> 

♦include <ermo.li> 

♦include <signal .i> 

♦include <aath.h> 

♦include <X11/Xlib.h> 

♦include "Xdraw.h" 


extern Display *t heDi splay ; 

extern XEvent the Event; 

extern Window thetfindov, opentfindovO ; 

extern GC theGC ; 

extern struct obj PLACES Q; 

extern struct obj TRAJSQ; 

extern struct hosts HQ ; 

extern struct gjnv GMQ ; 

extern int GLQBAL,PLAC£S; 

extern int HO. HOSTS; 

extern int IG, PLACES ; 

extern int HO, TRANS; 

extern XSetWindowAttributes theWindow Attributes ; 


• st.eraseO 

« (set erase mode). Sets the GC to clear node. 


st,arase( ) 


{ 


XS et For aground (theOisplay, theGC, t he Window Attributes . background ,pi xel ) ; 



/• 

* st.noraalO 

* (set normal mod*) , undoes the effect of tt.tru*, if usod ««rli«r. 

* using st.aormal anltiple times should not esu« any harm. 


st.aormal 0 

< 

XSetForegxoundCtlieDisplay , theGC , tlieWindowAttributes. border .pixel) ; 


clear.net () /• Cloars the Petri-let Window */ 

{ 

XCleartfindow(tbeDisplay , tbeWiadow); 

> 

/* 


** writ o .tag (tag, x, y) 

mm 

*« Writos the given tag at the given position. 

*/ 


void vrito_tag(tag, x, y) 
char «tag; 
imt x, y; 

( 

x ♦* Dia/4; 
y ♦* Dia/4; 

XDrawString(theDisplay, theWindow, theGC, 
*. 7. 

tag, strlen(tag) ) ; 

fifdef DEBCG2 

priatf("Ha\a ,, ,tag) ; 
teudif 

> 


mm 


•/ 


draw. pi ac e (host , ob j .no ) 

Looks up the x and y coordinates o t the given object and draws it. 


void draw.place(host , obj.no) 
int host, obj.no; 

{ 

int x, 7, xt, yt; 

il ( host >* 0 ) 

{ 

z » mag(H [host] .PCobj.no] .z.pos , 0); 
y » mag(HChost] .PC0b3.no] .y.pos , 0): 
xt * mag(H Ghost] .PCobj.no] .re. pos, 0); 
yt » nag(HChost] .PCobj.no] .yt.pos , 0); 
writ e. tag (H Ghost] .PCobj.no] .nano, xt, yt); 

> 

else 


xt * nag( GM Cobj.no] .rc.pos, 0); 



I 


119 


7* * «*g(®*Cobj_no] .yt_poa, 0); 
x » aag(GMCobj_no] .x_pos, 0); 
y a ®ag(GHCobj_ao] .y.pos, 0); 
write_tag(GHCobj_ao] .mm. xt, yt); 

XDrawArcC tbeOisplay, tbetf indow, tbeGC , 
x - Dia/2 , 7 - Dia/2, 

Dia, Dia, 

0, 360 *64); 

> 

/a 

mm 

*« draw_trans (hoax , ob j _no ) 

«• 

mm Looks up tbs x and y coordinates of tbs given object and draws it. 

•/ 

void draw_trans(b, no) 
int b, no; 

•C 

iat x, y; 

x a nagClQU .TCno] .x_pos, 0); 
y » aag(HCb] -TCno] .y_pos, 0); 
switcb( HD0 .TCno] .rot ) 

< 

case 0 : /• — Horixontbal •/ 

ZDrawLine(tbeOisplay , tbetf indow, tbeGC, 
x - Dia/2. y, 
x ♦ Dia/2, y); 

break; 

case 1 : /• — Vertical •/ 

XDrawLine ( tbeDisplay , tbetf indow , tbeGC , 
x, y + Dia/2, 
x, y - Dia/2); 

break; 

case 2 : /• — 46 degree tilted «/ 

XDrawLine ( tbeD isplay , tbetf indow , tbeGC , 
x - Dia2/2, y - Dia2/2. 
x +• Dia2/2, y * Dia2/2) ; 

break; 

default : ; 

> 

x = mag(HCb] .TCno] .xt_pos , 0); 
y a aagdCb] .TCno] .yt.pos , 0); 
write_tag(HDv] .TCno] .naste, x, y) ; 

> 


•define dMark 5 

Adeline dArcAng 30 


/* 


•/ 


drawtoken(x, y) 

Draws one token at tbe specified x.y address ( teroinal coordinates ) 


drawtokenCx, y) 
int x, y; 



120 


IFillArcCtbsOiaplay » tbeVimdow , tbeCC , 

x. J. 

dllark, dMark, 

0 , 360 * 64 ) ; 


** draw.tokeaCbost, obj_.no , tokens) 

*« 

mm Draws the tokens if < S asd writes # for 5 or sort. 

•/ 

roid draw.tokeas (host , obj_ao, tokens, new) 
i at host, obj_ao, tokens, new; 

{ 

iat x, y, i; 

float x_pos, y_pos; 
char tapClO] ; 

if ( boot >« 0 ) 

{ 

x * mag(HQiost] .PCobj_.no] .x w pos, *2); 
y * aagCHChost] .PCobj.no] .y.pos , - 2 ); 
if ( !new ) 

tokens * H [boot] . P Cob j .no] . tokens ; 

> 

else 

< 

x * aagCGHCobj.no] .x.pos, - 2 ); 

7 * aagCGHCobj.no] .y_pos, -2); 
if ( '.new ) 

tokens s GHCobj.no] .tokens; 

> 

switch C tokens) 

{ 

caw* 0 : break; 
cast 1 : 

dr awtokea ( x , 7 ) ; break ; 
caw# 2 : 

drawtokeaCx - Dia/4, y) ; 
drawtokeaCx > Dia/4, 7 ); break; 
case 3 : 

drawtokeaCx, y - Dia/4) ; 
drawtokeaCx - Dia/4, 7 + Dia/4); 
drawtokea(x > Dia/4, 7 + Dia/4); break; 
case 4 : 

drawtokeaCx - Dia/4, y - Dia/4); 
drawtokeaCx + Dia/4, y - Dia/4); 
drawtokeaCx - Dia/4, 7 ♦ Dia/4); 
drawtokeaCx + Dia/4, 7 + Dia/4); break; 
default : 

spriatf C tap , **%d M , tokens ) ; 

XDrawStriagC tbeDisplay, thetfiadow, theGC, x, y+ 6 , tap, strleaCtap) ) ; 

> 

> 


1 


1 


■ 


1 


/* 
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mm 

** erase.tokens (host , obj.no) 

mm 

•a !Uaovu the tokens by changing for •ground to background and 

•• drawing tbo token. 


erase.tokens (host , obj.no) 
int boat, obj.no; 

st.eraseO ; 

dras.tokens (boot , obj_no, 0, 0); 
at .normal 0 ; 

> 


/* — last 0 specifies draw old 
tokens «/ 


/• 

«• 

*• arrowbead(xl,yl, x, y, tbeta) 

•a 

«» Draw an arrowhead. 

*/ 

void arrovhead( xl, yi, x, y, tbeta ) 
int xl. yl, x, y; 
float tbeta; 

{ 

int x2. y2, x3, y3; 

/» — Correct ‘x‘ alignnent •/ 
if ( x > 0 ) 

x2 a xl - lRR0VL*coe (tbeta + M.PI/10); 
x3 * xl - ARR0VL*cos (theca - M.PI/10); 

> 

•lae 

x2 = xl + ARR0WL*cos (theta + M.PI/10); 
x3 3 xl + ARRQVL*cos (theta - M.PI/10); 

> 

/* — Correct ’ y' alignnent •/ 
if ( y > 0 ) 

{ 

if ( x < 0 ) 

{ 

y2 3 yl ♦ ARRQHLeain(tbeta ♦ M_PI/10); 

y3 = yl «■ ARR0UL*a in (tbeta - M.PI/10) ; 

> 

else 

y2 = yl - ARRQVL*ain(tbeta + M.PI/10) ; 

y3 = yl - ARRQWL*sin(tbeta - M.PI/10); 

> 

> 

•lae /* — y > 0 «/ 

{ 

if ( x > 0 ) 

y2 = yl - ARRQVL *ain(theta * M.PI/10): 

y3 * yi - ARROWL*ain(tbeta - M.PI/10); 
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> 

•ls« 

{ 

y2 » yl + AWUWL*«4a<th*ea + M_PI/10); 
y3 * yl + - M.PI/10); 

> 

> 

H3ra.«L±n« (tli •Display , thaHindov, th*GC, 
xi, yl, 
x2, y2); 

XDrawLia«(tJi«Display , t&ctfiadov, th«<SC, 
xl, yl, 
x3, y3) ; 

> 

/, 


l 


I 


draw.siaplaarcCfron, bost, obj.no , mult , mods) 

Drava an arcb b itmta tbs place specified by from by looking up PLACES 
to transition (boat, obj_.no ) with multiplicity mult. If the mods is 
H f tbs arrowbsad is at tbs transition, slss it is at tbs 
mm transition. 

•/ 

void drav.simplearc(from, bost, obj.no, mult, mods) 
int from, bost, obj.no, mult, mods; 

t 

int i, b, no; 
cbar tmpQUXLEI] ; 
int xl, yl, x2, j2 , x, y; 
float a, tbsta; 

strcpy(tap, PLACES Cfr on] .nams) ; /+ — gat nans of placs 

b 3 gstbost(tmp) ; 
no = gstnun(b, tap); 

if ( b >= 0 ) /* — Placs bslongs to a toksn playsr 

{ 

xl = magCHCb] .PCno] .x.pos, 0); 
yl = mag (HCh] .PCno] .y.pos, 0); 

> 

slss /« — Placs bslongs to tbs global marking vector */ 

{ 

xl = aag(GMCno] .x.pos, 0); B 

yl = mag(GHCno] .y.pos, 0); 

> 

x2 = magdChost] .TCobj.no] .x.pos , 0); 
y2 * mag(HChost] .TCobj.no] .y.pos , 0); 

x * xl - x2; /• — Calculata angle of attack of arc •/ 

y = yi - y2; 

if Ox) 

tbsta * M.PI/2; 1 

slss 

tbsta * atan( (float )y/x) ; 

if ( x > 0 ) /* — Corrsct 'x* alignmsnt of entry point to place */ 

xl -a (Dia/2»cos( theta)) ; 
else 


fron */ 


•/ 


1 
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*1 ♦* (Dia/ 2 *coo (thota) ) ; 

/* — Correct '7* xligaaont oi ontry point to placo */ 

a ( y > o ) 

< 

il ( x < 0 ) 

7l +« (Dia/ 2 *sia(thota)); 

olso 

7I -■ (Dia/2*oia(thota)); 

> 

•la* /* — 7 > 0 */ 

{ 

il ( x > 0 ) 

7I -* (Dia/ 2 *sin(thota) ) ; 

•la* 

71 ♦* (Dia/ 2 *sin(thota) ) ; 

> 

switch (aodo) 

cu* Il : 

arrowhoad(x2 , 72, -x, -7, thota) ; 

XDrawLino ( thoO laplay , thotfiadow, thoGC, 

xl. 71. 

x2. 72); broak; 

case QOT : 

arrowhoadCxl, yl, x, y, thota); 

XDrawLino (thoDisplay, thotfiadow, thoGC, 
xl . yl. 

x2, y2); brook; 

earn# HH : 

XDrawArc( thoDisplay , thotfiadow, thoGC, 
x2, y2, 
dMark, dMark, 

0 , 360 * 64 ) ; 

XDrawLino (thoDisplay, thotfiadow, thoGC, 
xl. yl. 
x2, y2); 

> 

y /* — Sad o t draw_si«ploarc(ixoa, hoot, obj.no, wait, nodo) 


•* atart_arc(host , obj.no , x.pos, y.poo, modo) 

mm 

** Draws ths start of an arc from transition, (host , obj.no) to 

*/ 

▼oid start _ arc (ho st t obj.no, x.pos, y.pos, nods) 
int host, obj.no; 
float x.pos, y.pos; 
int nods; 

{ 

int i, h, no; 
char tapClUXLSH] ; 
int xl, yl, x2, y2, x, y; 
float a, thota; 

xl * mag(x.pos, 0); 
yl a aag(y_pos, 0); 
x2 = mag( 3 Chost] .TCobj.no] .x.pos , 0); 


*/ 


(x,y) . 
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j2 * mag(HQiost] .TCobj.no] .y.pow » 0); 
x ■ x2 - si; 
y « y2 - yl; 
il (!x) 

tkwtn * M.PI/2; 

•Iso 

thota a atan( (llo*t)y/x) ; 

s* itch (aod«) 

{ 

cans H : 

axrowk«sd(x2, y2, x, y, that*) ; 

XDmwLin«(th«Displxy, th* Window, thoGC, 

*i, yi. 

x2, y2); taraak; 

eu« OUT : 

XDr»wLin«(th*Displ»y , th« Window, thaCC, 
xl , yl. 

x2, y2); braak; 

caaa HE : 

XDrawArc(thaDiaplay, t ha Window, thaCC, 
x2, y2, 
dMark, dMark, 

0 , 360 * 44 ) ; 

XDrawLina(th*Oiaplay, tha Window, thaCC, 
xl, yl, 
x2, y2) ; 

> 

> /* — and oi start .arc (hoax, obj.no, x.poa, y_poa , aoda) •/ 

/• 


*• aad_ arc draw, x_pos , y_pow , aoda) 

** 

•* Draws tba and o t an arc from (x,y) to tba plaes spaciiiad by M iroa ,# . 

*/ 


void and.arc(iroa, x.poa, y.poa, aoda) 
ict txom; 

iloat x.poa , y.poa ; 
ict aoda; 

iat i, h, co; 
char tapCMAXLZH] ; 
iat xl, yl, x 2 , y 2 , x, y; 
iloat a, that a; 

strcpy(tap, PLACES Ciroa] .aaaa) ; /* — gat caaa oi placa iroa »/ 

h a gat boat (tap) ; /* — Look up boat ccabar and »/ 

co 3 gatcua(b, tap) ; /* placa # at boat «/ 

ii ( h >* 0 ) /* — Placa balocgs to a tokac playar •/ 

{ 

xl a aag(HCb] .PCco] ,x.pos, 0 ); 
yl * aag(HCb] .PCno] .y.poa, 0 ); 

> 

alaa /* — Placa balocgs to tba global aarkicg vactor */ 

{ 

xl * aag(GMtno] .x.poa, 0 ); 
yl 3 aag(GMCno] .y.poa, 0 ); 

> 


\ 

i 


i 


■ 


i 


1 
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x 2 » aag(x_pos, 0); 
j 2 a ^(y.po*. 0); 

x * xl - x2; /* — Calculate angle of attack of are */ 

7 3 ji - y2; 

if (!x) 

theta » M.PI/2; 

else 

theta a ataaC (float )y/x); 

if ( x > 0 ) /* — Correct ’x* alignment of entry point to placo •/ 

xl -a (Dia/2*cos(thota)); 

•Iso 

xl +* (Dia/2*cos(theta)); 

/* — Correct ’y* »i ignnent of entry point to placo •/ 
if ( y > 0 ) 

{ 

if ( x < 0 ) 

7l +a (Dia/2eain(theta)); 

else 

71 -■ (Dia/2*sin(theta)); 

> 

else /* — 7 > 0 •/ 

if ( x > 0 ) 

71 -a (Dia/2asin(theta) ) ; 

else 

71 +* (Dia/2*sin(theta)) ; 

> 

if ( node » n II node a. HI) 

< 

XDrawLine(theOisplay, thetfindow , theGC, 
xl. 71. 
x2, 72); 

> 

else 

{ 

arrowhead(xl , 71, x, 7, theta) ; 

XDrawLine(theDisplay, the Window , theGC , 
xl, 71. 
x2. 72); 

> 

> /* — end of and. arc (Iron, x.pos, y.pos , node) •/ 

/* 

mm 

•• draw.arc(xl, 71, x2, 72) 

mm 

** Draws a line between the given points. 

•/ 


void draw_arc(xl , yl, x2, y2) 
float xl. 71, x2, y2; 

int xa, ya, xb, yb; 
xa a nag(xl , 0) ; 
ya = »ag(yl . 0) ; 
xb = «ag(x2, 0); 
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yb a aag(y2, 0) ; 

XDravLin«(th«Display , thatfindov, Xb«<jC , 

xa, ya, 

xb, yb); 

> 


A.6.5 stats, c — Statistics Routines 

♦include "size.liaits .h“ 

♦include <stdio.h> 

♦include "de<s.b“ 

♦include <string.h> 

♦include <sys/types .h> 

♦include <sys/socket .h> 

♦include <netinet/in.h> 

♦include <netdb.h> 

♦include <fcntl.h> 

♦include <ermo.h> 

♦include <signal,h> 

♦include <nncii.li> 

♦include <X11/Xlib . h> 

♦include ‘•Xdraw.h <, 

/*♦ define DEBUG 1 1 
♦define DEBUG2 2 
♦define DEBUG3 3*/ 

extern Display *theDisplay ; 

extern XEvent theErent; 

ertern Window the Window, op en Window () ; 

extern GO theGC; 

extern struct ob j PLACES C HAXTBAIS ] ; /* — name end boat assignment o f ell 

pieces*/ 

extern struct ob] THAIS C HAXTRAIS ]; /* — name * lioet of ell trans. */ 

extern struct hosts HC MAXHQST ]; /* — All net inf or stored here */ 

extern struct gmv GMC MAXTRAIS ]; /* -- Into abt. global marking rector*/ 

extern int GLOBAL „ PLACES ; 

extern int SO. HOSTS ; 

extern int SO. PLACES ; 

extern int SO. TRASS ; 

extern 3G0LZAI display.stats ; 

extern 30QLZAM avg.rate; 

void clear. stats ( ) ; 


/ 


/ 


reset .stats 

Set 3 all transition firing counters to 0. 


void reset. stats ( ) 
int h , t ; 
clear.statsO ; 

for ( h = 0; h < JO.HQSTS; h++ ) 

for ( c = 0; t < HCh] . HO. THAIS ITI QI S ; t+* ) 
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HQQ .TCt] .ti»«.fir«d 3 0; 
iait_*l*p*#d_i:ia«() ; 


/* 

•m 

*• upda.t«_ 3 xara ( bui ) 

mm 

** Updates tile statistic ol all transitions reported in bul . 

*/ 

▼old updat e. stats ( bul ) 
siiort bulD ; 

i 

int i, b, t, x, y; 
char tapC20] ; 

Host rate; 

lor ( i * 1 ; i < 1 ♦ HC bnlC 0 ] ] . 5 Q.TRAISITI 0 IS; i-M* ) 
il ( bnlC i ] >* 0 ) 

{ 

b * bolt 0 ]; 
t » i - 1 ; 

il ( disolay. stats ) 

{ 

il ( avg_rate ) /<■ — Display average rate */ 

{ 

st.erase() ; 

aprmti ( tap , '*%£ " , H DJ . T Ct] .rate ) ; 
x = aag(HCh] .TCt] .xr.pos, 0); 

7 = aag(HQi] .TCt] . yr.pos, 0); 
il ( cbech.layer ( b ) ) 
nrite.tag( tap, x, 7); 
st.aoraalO ; 

HC h ].TC t ] .old.times.lired = HC b ] .TC t ] .times _fired; 

HC b ].TC t ] . times. lired = bnlC t + 1 ]; 

rate = (lloat )HCb] .TCt] . times. lired/ elapsed. time. sec O ; 

Htb] .TCt] .rata = rate; 
sprint! ( tap, ”%1 M , rate ); 
x = aag(HCh] .TCt] .xr.pos, 0 ); 

7 = aag(HCh] .TCt] .yr.pos, 0 ); 
il ( checfc.layer C b ) ) 
vrite.tag( tap, x, 7); 

> 

else /« — Display t ol times tired */ 

t 

st.eraseO ; 

spriatl( tap, " 7 .d M , HCb] .TCt] . times.lired ); 
x* s aag(HCb] .TCt] .xr.pos, 0 ); 

7 * aag(HCb] .T[t] .yr.pos, 0 ); 

1! ( cbech.layer ( b ) ) 
vrita.tag( tap, x, 7); 
st.aoraalO ; 

HC b ] .TC t ] .old, times. tired = HC b ] ,TC t ]. times. lired; 
HC b ] .TC t ] .times. lired * bnlC t +■ l] ; 
sprintK tmp, M 7 .d" , HCh] .TCt] .times. lired ); 
x = aag(HCb] .TCt] .xr.pos, 0); 

7 = aag(HQi] .TCt] . yr.pos, 0); 
il ( cbecb.layer ( b ) ) 

?rite_tag( tap, x, 7); 
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> 

dsa 

HC * ] .TC t ] .old_tiaaa_fir#d » HC & 3.TC t 3 .tiaaa_firad; 
HC h. ] .TC t ] .tiaaa.firad ■ bufC t ♦ 1] ; 

> 

> 

> 

/* 


•* daar_3tats() 

a* 

•* Clears all stats froa display. 

•/ 

toad daar_stats() 

i 

iax h., t, x, y; 
ebar tap (20] ; 

lor ( 1 » 0; h < IQ .HOSTS; h++ ) 

for ( t * 0; t < H CU ■ lO.TJUISITlOIS ; t++ ) 

if ( avg_rata ) /» — Display avaraga rata */ 

i 

st_«rasa() ; 

spriatl( tap, HOi] -TCt] .rata ); 

x * aagdOl] .TCt] .xr.poa, 0); 
y = aagdOx] .TCt] .yr.pos, 0); 
arita_tag( tap, x, y); 
st .normal 0 ; 

> 

also /* — Display * of tiaaa fixad •/ 

st.arasaO ; 

sprintf( tap, "7A " , HOi] .TCt] .tiaas.firad ); 
x = aagdCh] .TCt] .xr.pos, 0); 
y * aagdCh.] -TCt] .yr.poa , 0); 
arita_tag( tap, x, y) ; 
st .normal () ; 

> 

> 

/« 

mm 

mm updat •_ all .stats ( ) 

mm 

mm Uodatss zhm stats for all transitions « 

•/ 

void npdats.all.statsO 

< 

int h, t, x, t; 
char tap CIO] ; 

tor ( h « 0; h < IO.HOSTS; ) 

tor ( t * 0; t < HQi] . HQ .THAISITIOIS ; t-w ) 

it ( avg.rats ) /+ — Display avtrags rats */ 

sprint t( tap, , *%t M , HCk] .TCt] .rats ); 
x = aag(HDx] .TCt] .xr.pos, 0); 


i 


i 


■ 


i 


I 



129 


y ■ nagdQG .TCt] .yr.pos, 0 ); 
ii ( ch*ck_lay«r ( h ) ) 

»rit*_tag( tap, z, y); 

> 

«ls* /* — Display ♦ o* tin** *ir*d •/ 

{ 

spnnt* ( tap, "%d M , HOx] .TCt] .tia**_fir*d ); 
z * aagdQi] .TCt] .rr.poa, 0 ); 
y a nagdOG .TCt] .yr.pos, 0 ); 
i* ( ch*ck_lay*r ( h ) ) 
writ«_tag( tap, z, y); 

> 


/* 


*• display. «laps#d_tia#() 

•/ 

static long int tin* * 0; 

void display _*lap**d_t m* O 

< 

char tap [20] ; 

tap CO] 3 >\0* ; 
st_*ras«() ; 

sprint* ( tap, M %d s", tia* ); 

writ*_tag( tap, 100, 10 ); 
st.noraalC) ; 

tin* * (long) *lap**d_tia*_s*cO ; 

sprint* ( tap, "Elapsed Tin* : Xd tin* ); 

*rit«_tag( tap, 100, 10 ); 


A. 6. 6 X routines. c — Miscellaneous Routines for X Windows 

Sinclnd* <X11/Xlib.h> 

Sinclnd* <11 1/lntil .h> 

Sinclud* <atdio . h> 

Display •thaDisplay; 
int th«Scr**n; 
int thaDapth. ; 

unsigned long thaBlacZPizal ; 
unsigned long th«tfhit*Piz*l; 

Sinclnd* "th*Ieon" 

XS*zWindo«Attribut*s th* W indos At tributes ; 

Sd«*ine BORDEH.WIDTH 2 

initXO 

C 

thaDisplay 3 IQpanDisplay (HULL ) ; 

i* (th« 0 isplay 3 * ItJLL) { 

* pr int* ( std*rr , 

"Error: Cannot «stablish a connection to the X Serrar '4s\n“ , 
XDisplaylaaedULL) ) ; 
azit ( 1 ) ; > 
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thwScreen 

theDepth 

theBlackPixel 

thaWhitaPixel 


3 DefaultScreea(thei)isplay) ; 

3 Daf aaitDepth(theDisplay, theScreea) ; 
3 Black? ixeKtheDisplay, theScreen); 

3 WhitePixeKtheDisplay , theScreea); 



XClosaDisplay(theDisplay) ; 


Window opentfindow(x , y, width, height, flag, thelewCC) 
int x, y; 

ine width, height; 
iat flag; 

GC *theIewGC ; 

{ 


ISizefiints 
unsigned long 
Window 
PI, map 
XVMHints 

theW indovAttributas . border ,pixel 
theW indovAttributas . background, pixal 
theW indow At tributes . owerride,rediract 


thaSizaHints ; 
theW indo vM&sk ; 

thalawWindow ; 
thelconPi map ; 
theWMHints ; 

3 theBlackPixel; 
3 thaWhitaPixel; 

= True; 


theWindovMask 3 CVBackPixal ! CWBordarPixal ; /* 1 CVQwarrida&adir act ; a/ 

thalawWindow 3 XCraat a Window (theDisplay,/* Opan a window on the dis. •/ 
RootWiadow( thettisplay, theScreen) , 
x, y, width , haight, 

BQH 8 E&. WIDTH , theDepth, InputQntpat, 

CopyfrowParant , theWindovMask, kthe Window At tributes) ; 


thalconPixmap 3 XCraat aflitaapFromData (thaOiapl ay , /* 3 ) Sat up icon */ 
thalawWindow , thelcon.bits , thelcon, width, theIcon_height ) ; 

/• 4 ) Sand hints to Window Manager */ 

theWMHints . icon,pixnap 3 thalconPixmap; 

theWMHints . initial. state 3 SormalState; 

thaWMHints . flags 3 IconPixaapSint I StataHint; 

XSetWMHiats(theDisplay , thalawWindow , ktheWMHints ) ; 


/* S) Sira and location for our windows •/ 
thaSizaHints .flags 3 PPosition I PSiza; 

thaSizaHints .x 3 x: 

thaSizafiints.y * y; 

thaSizaHints .width = width; 

thaSizaHints .height 3 height ; 

XSatIoraalHints(thaOisplay t thaH aw Window, ktheSizaHints) ; 


/* 6 ) create the graphics context for the window */ 
if (cr eat eGC( thalawWindow, thetfewGC) == 0 ) { 

XDastroyWindow(thaOisplay , thalawWindow) ; 
re turn ( (Window) 0 ); 

> 


/* 7) Ask X to make the window visible */ 
XMapWindow(thaOisplay , thalawWindow) ; 

/* 3 ) Flush out all the queued up X requests •/ 
XFlush(thaDisplay) ; 



> 


/* 9) Rveara th» viadov ID */ 
rvcaxa(t&«I«vViadov) ; 


cr«*.t «CC ( th«f«v Viadov , tb«I«wCC ) 

Viadov t&«V«vViadov; 

5C i 

{ 

ZGCValaov thoCCTalaos ; 

*tb«f«vGC a XCrovcadCCthvDisplay , tb«l«vViadov , 

(aaaignvd loag) 0, ftedoGCValavs) ; 
it (*t&«l«vGC »0) { 
rotaxa(O) ; 

> 

•Iso { 

XS«cForvgroaad(th«Display , *th«I«vCC , tlivBlaekPizvl) ; 
XS«tBackgroaad(tlL«Dispiay, *t&«l«wGC, tix«VliitoPix«l) ; 
rveora(l) ; 

> 

> 


A.6.7 eventx.c — X Event Handler 

/* 

*• •vontx.c 

mm 

*/ 

#includa "Xdraw.i i" 

♦include <Xll/XHb.h> 

♦include <X 11 /Xuril.h> 

exrarn Display *rbaDi splay; 
axrern Window tbetfindow; 
exrarn inr layer; 

Molina EV_& 1 SX ( Bur ronPr as a Jfaak I \ 
KeyPreasMaak I \ 
ExposureMa ak j \ 

S trucrureXorilyMask ) 


XEvenr theEvenr; 

r air *ahWindow( tkeExpoaedVindow ) 

Window theExpoaedWindow; 

< 

draw_geo_inlo( 0 ) ; 

XFluahftheDiaulay) ; 

> 

XEvenr Handler ( ) 

{ 

ZCoapoaeStarus tkeCowpoaeStatua; 

KeySym theKeySya; 
inr tkeKeyfiullerHaxLen * 64 ; 
char theKeyBulX er C 65 ] ; 
inr aew.layer; 

wbila( X Check WindowE vent ( tkeOisplay , theWindow, EVJOSX, ktheEvenr ) ) 
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switek( tkeEwant . type ) 

{ 

cu« Expose : 

♦lid at DEBUG1 

printl ( "Exposed\n H ) ; 

♦endit 

retreshWindowC theEvent . zany . window ); 
brMk; 

cu« Hap lot it y : 

♦itdat DEBUG 1 

printl ( ,# Happed\a" ) ; 

tadil 

r etxeshW: indow( tkeEvent . zany . window ) ; 
break; 

case ButtonPreaa : 

♦itdat DEBUG1 

printl ( "buttonXn 1 * ) ; 

♦audit 

break; 

ease Keypress : 

XLookupStr ing ( ttkeEvent, tkaKey Butler, thaKeyBullerMaxLea, 
ktbeKeySy* , ktkeConposeS tarns ); 

/a — Entire net selected tor displaying a/ 
it ( ( tkeiCeySya » 'a J ) I I ( tkeKeySyn ** *k* ) ) 
lay ar * OxTFF; 

/a — Global places only a/ 

it ( ( tkeKeySyn » ’g J ) I I ( tkeJCeySy* “ •G* ) ) 
layar “* 0x400; 

/a — Spacilic layar selected */ 

it ( ( tkeKeySyn >* *0' ) kft ( theJCeySy* <* ) ) 

new_lay ar a thafCeySy* - 48; 

/* — It layar ’on' , mm oil, alsa tnm on */ 
layar = ( l«new_lay ar) ‘layer; 

> 

♦itdat DEBUG 1 

printl ( "<%a> preaaed\n M , theKeyBuHer) ; 
print! ( "%x\n ,# , layar) ; 

♦andit 

clear.net () ; 

retresbWindow( t be Event .zany . window ); 

break; 

case ConligureJfotily : 

♦itdat DEBUG! 

print! ( "Conliguration\n M ) ; 

♦audit 

relresbWindow( tbeEv ant. zany. window ); 
break; 

> 

> 

> 

initXEvents( the Window ) 

Window the Window ; 

{ 

IS elect Input ( theDiaplay, theWindow, EVJUSK ); 

> 


s 


1 


1 


1 
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APPENDIX B 

EXAMPLE SOURCE CODE 


B.l Controller Code 

B.1.1 tnameS.h — Transition Name Definitions 


#def ine 

T32.AT.2 0 



#def ine 

T31.AT.2 1 



tdefine 

T30.AT.2 2 



tdefine 

T15.1 3 



tdefine 

T1S.2 4 



tdefine 

T15.3 S 



tdefine 

Tid.i a 



tdefine 

T16.2 7 



tdefine 

T16.3 8 



tdefine 

T2SDone.II.AT.2 


9 

tdefine 

T2SS tart. OUT. AT.2 


10 

tdefine 

T24Done.IJ.AT.2 


11 

tdefine 

T24S t art .OUT. AT. 2 


12 

tdefine 

T23Done.II.AT.2 


13 

tdefine 

T23Start. OUT. AT.2 


14 

tdefine 

T21.3I IS 



tdefine 

T8.3Y.AT.2 

16 


tdefine 

T21.21 17 



tdefine 

T8.2Y.AT.2 

18 


tdefine 

T21.ll 19 



tdefine 

T6.1Y.AT.2 

20 



B.l. 2 interface-. i — Driver Subroutines 

/* 

mm 

** interface2.i 

mm 

* m This file contains all procedures for implementing device drivers 

** (except socket initialization ahich .must. be done in socket. init () ) 

a* in player . c 

mm 

«/ 


tinclude ’*Tname2 . h M /+ — Tbia include file defines the transition 

numbers for token player 0 of the 
thes is . net controller */ 

^include M SIH.2/tnaaeO ,h M /* — This include file contains the transition 

numbers of tbe transitions of token 
player (tbesis.sim2.net */ 

extern BOOLE II event .flag; 
extern int io. socket; 
extern long io .buffer [2] ; 

long input. status =0; /* — Stores tbe input status (make it an array 

if there are several machines) */ 
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double md_01d() ; 


/* 

mm 

mm pr*cond.t*st( transition_an*b*r ) 

mm 

•• Checks tbe preconditions for tbs transition ntmbsr. 

«* 

»• lots that tbis sebsas doss _ICT_ sorb for tinsd transitions as tbis 

•• ebseking is destructive and a tinsd transition bas tbis ebseksd twice 

** for, tbns tbs first ebsck srasss tbs flag and tbs transition nay newer 

** firs . 

mm 

*m Mot:* us* o f tr.ao; it corresponds to the bit checked. The program 

** transmitting tbis information us* s the t»ame<i>.h includ* file 

*m generated by building tbis token player to d*t«zmin* which bit 

** to sat. I.*, tb* device driver of tbis program sets tba preconditions 

mm true by using tba transition xramber stored in tname<i>.b. 

mm 

*/ 


int 

precond.t eat (tr.no ) 
int tr.no; 

< 


if ( input. status k ( Ozl « tr.no ) 

{ 

input. status * input .status k 
r* turn( 1 ) ; 

> 


) /* — Check flag a/ 

Oxl « trjw ) ; /m — dear flag 


♦/ 


r* turn ( 0 ) ; 

> 


/* 

mm 

mm postproc.t*st() 

mm 

mm Writes to tb* device driver (in tb* test case another token player) 

** corresponding to tb* transition to be set. 

mm 

mm Mote tbe naming convention used for tba transitions. In tbe case there 

** two token players are connected, each transition name corresponds to 

mm another at tbe other token player, except that if one is IH, tbe 

mm other in OUT. 

•/ 

int 

postproc.t*st( tr.no) 
int tr.ao; 

{ 

long output. status; 
long outbuf C 2 ] ; 


switch ( tr.ao ) 

{ 

case T23Start.QUT.AT.2 : /* — from transition */ 

output. status * ( Oxl << T23Start.IM) ; /+ — to transition ... */ 
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brsak; 

cu< T24Start.0UT.AT.2 : 

output. status * ( Oxl « T24Start.IJ); 
brsak; 

cass T25Start.QUT.AT.2 : 

output. status * ( Oxl << T2SStart.il) ; 

brsak; 

> 

outbutC 0 ] a 0; 

out but C 1 ] 9 output. status; 

priatt( H \nI0 trat'd: Xx Xx \n ,# , outbufCO], outbut ClJ ); 

/* — Sand status to toksu playsr or dswics driwsr +/ 
it ( writs ( io.sockst, outbut , sizsot ( outbut ) )*■-!) 
syasr r( "writs io.sockst" ) ; 


> 


/* 

mm 

mm dscods.ioO 

«* 

•* Oscodss tbs I/O rscsivsd oa tbs io.sockst. 

«* 

« io.buftsrCO] : dswics * id. 

** io.buttsr [l] : status word. 

mm 

*/ 


▼o id 

dscods.ioO 

< 

input. status io.buttsrCl] ; c 

swsnt.tlag = TRUE; 

priatt("\aI0 rsc'd; Xx Xx ", io.buttsr[0] , io.butlsrCll ); 

> 


/* 


mm 


*/ 


contlict.rasolution(tr.ao) 

Rsturus trus/talas with probability Trans it ioaCtr.ao] .tiring. rats 
tor an uaasdiats transition. Tbis is a cruds nstbod ot siaulating 
contlict bstwssn ixmsdiats transitions that baws assignsd 
probabilitiss ot tiring. 

Vots tbat tbs porbablilitss must bs sealsd dspsnding on narking and 
bow nany transitions ars in contlict to gst tbs corrsct rssults 
(like it is dons in SPVP). 


int 

contlict .rssolut ion ( tr.no ) 
int tr.no; 


doubls rad , tap; 
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rad * rad.OldO; 

tap * (double) TransitionC tr.no ] .Xiria£_rate; 

if ( rad < tap ) 
retura( 1 ) ; 

else 

return( 0 ) ; 


B.1.3 trJinksS — Links for Subroutine Calls 


/ 


Initialization file for Host 2 controller 


lote that both tbe flag anst be set and the address aust be assigned 
in order for the process to be executed. 


Transit ion [ T6.1Y.AT.2 ]. preconditions = 1; 

Trans it ion C T8.1Y.AT_2 ]. preprocess * conflict .resolution; 

TransitionC T2l.ll ] .preconditions 3 i; 

Trans it ion C T21.1S 3, preprocess 3 conflict .resolution; 

TransitionC T6.2Y.AT_2 ]. preconditions 3 1; 

TransitionC T6.2Y.AT_2 ]. preprocess = conflict .resolution; 

TransitionC T21.21 ] . preconditions = i; 

TransitionC T21.2I ]. preprocess 3 conflict .resolution; 

TransitionC T6.3Y.AT_2 ]. preconditions = 1; 

TransitionC T6.3Y.AT.2 ]. preprocess = conflict .resolution; 

TransitionC T21.3M ]. preconditions = 1; 

TransitionC T21.3H ]. preprocess = conflict. resolution; 


TransitionC T23Done_IH_AT_2 ]. preconditions = 1; 

TransitionC T23Done_Il_AT.2 ].praprocess = precond.test; 

TransitionC T24Doae_IH_AT_2 ] .preconditions = i; 

TransitionC T24Done.IH.AT_2 ]. preprocess 3 precond.test; 

TransitionC T2SDone_IH.AT_2 ] .preconditions = 1; 

TransitionC T25Done.II.AT_2 ]. preprocess = precond.test; 

TransitionC T23Start .OUT. AT. 2 3 .postprocessing = 1; 
TransitionC T23Start .Q0T.AT.2 ] .postprocess 3 postproc.test ; 

TransitionC T24Start.0UT.AT.2 ]. postprocessing 3 1 ; 
TransitionC T24S tart. OUT. AT.2 ]. postprocess = postproc.test; 

TransitionC T2SStart.0UT.AT.2 3 .postprocessing 3 l; 
TransitionC T2SStart .OUT. AT.2 ] . postprocess 3 postproc.test; 
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B.2 Simulator # 2 Code 

B.2.1 portnuma.h — Socket Port Numbers for Simulator 

tdefine OFFSET TS /* — 0 flset to prevent use of , sum add ress between 

simulator an co&troll or «/ 

tdefine PLAYERPORT 1S00+0FFSET /• — Port onibc for tokon ring sockets */ 

tdefine COMMAXDPQRT 2S00+0FFSET /* — Port amber for conund sockets */ 

tdefine DISPLAYPQRT 3500+QFFSET /« — Port amber for display sockets */ 

tdefine IOPORT 4500+0 FFSET /+ — Port amber for i/o with device driver. 

lote - ao offset since it connects with 
the server socket of the controller */ 


B.2. 2 fnametf.A and trjinistf.i — Name and Link Definitions 

tdefine T24Done.0UT 0 

tdefine T23Done.aTJT 1 

tdefine T25Done.0UT 2 

tdefine T2SStart.II 3 

tdefine T24Start.Il 4 

tdefine T23Start_H 5 


B.2. 3 inttrfaczOA — Driver Routines 

/* 


interface . 


c 


This file contains all procedures for implementing device drivers 
(except socket initialization thick .oust, be done in socket. init () ) 
in player. c 


tinclude * . . /tname2 . h 14 


tinclade "tnameO.h" 


/* — This include file defines the transition 
annbers for token player 2 of the 
thesis. net controller */ 

/* — This include file coatains the transition 
numbers of the transitions of this token 
. player (thesis.sim2.aet */ 


I0TE : STUFF DELETED HERE IS IDE1TICAL TO ABOVE LISTI1G OF interface!, i 


stitch ( tr.no ) 

case T23Done.0UT : /* 

output, st at us a ( Oxl 

break; 

case T24Done.QUT : 

output. status * ( Oxl 
break; 

case T2SDoae.QUT : 
output. status s ( Oxl 

break; 


— from transition . . . 
« T23Done.Il.AT.2) ; /* 

« T24Done_IH.AT.2 ); 

« T25Done.IJf.AT_2 ); 


*/ 

— to transition ... +/ 
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> 

outbuiC 0 ] » 0; 

oubbui C 1 ] » output .statu* ; 

/• — S«ad status to tokan play «r or davico drirar */ 
it ( arita ( io .sock at, outbui , sizaoi ( outbui ) ) “ -1 ) 
sysarrC M arita io.sockat" ) ; 

priati ( "\nIQ tnat'd: %x %x M , orrebuitO], outbui Cl] ); 


> 


deleted 


B.2.4 player. c — Listing of iait -socketsQ 

VOTE - OILY DIFFEREICE B E T WEE1 REGULAR PLAYER. C FILE AID THIS IS THE FOLLOVXHG 
ROUTI1E: 


init.socketQ 

Initializes tka sockets for global marking vector tokan ring. 

tokan.in is sock at: for tka server of SERVERIAME tkat runs an tkis host 
and reads tka tokan aassaga from SERVERIAME • 

token. out is tka sockat for tka client to CLIETTIAME and arita a to 
tkis. 


iait .sockets ( ) 

i 

char temp; 

/a — Connact to XDisplay •/ 

out.X.wi a a client. setup( 90ST0IAME , DISPLAYPORT ); 

#if IQ. HOSTS > 1 

tifdaf H0ST0 /* — Tkis is tokan player * 0 */ 

/* — Setup SERVER connaction for tokan playar 11 */ 

tokan. in 3 s erv.se tup. iatr( HOSTVAME, PLAYERPORT, 

"Server waiting for pnl ..." ); 

satblock( tokan. in, FALSE ); 

/* — Wait until tka last tokan playar has opanad its server for tokan 
playar 0 •/ 

printf(" Hit Eatar 7 k an last tokan playar server is ready : \n" ); 
scanf C "%s" , At amp ) ; 

tokan. out 3 diant .setup( SERVERIAME, PLAYERPORT ); 
falsa /* — Tkis is not tokan playar 0 •/ 

tokan. out 3 client. setup( SERVERIAME, PLAYERPORT); 
tokan. in 3 3 err. s a tup. intr( HOSTVAME, PLAYERPORT, 

"Server 7 aiting for pn(i+l) M ); 

setblockC tokan. in, FALSE ) ; 
fendif 


/ 


** 

aa 


aa 

aa 


•/ 


■ 
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♦endif 

command.in * serv.setup.intr( HGSTIAXE, COIQUIDPGRT, 

"Server waiting for XCommand ..." ); 

setblock( command. in, FALSE ); 

/* — If the token player is a controller, this is a client socket */ 

♦if HOSTIO « 0 
♦ifdef EXTERIAL.IO 

io.socket 3 client. setup( HOSTIAHE, IOPOET, 

"Server waiting for device driver program ..." ) ; 
setblockC io.socket , FALSE ); /* receive commands from 

device driver */ 

♦endif 

♦endif 

signal ( SIGIO , input, interrupt .handler ); /* — Set up interrupt to be 

issued when i/o occurs */ 


> /* — socketinit() */ 

B.2.5 euen£jmn<f/er.c — Listing of get-event O 

IOTE : THE FOLLOW IXG ROOTHE IS THE OILY DIFFEREICS BETWEQ THE FILE FOE 
THE C01TR0LLSE AID THE FILE FOE THE SIHUHTOE 


/♦ 

mm 

mm 

mm 


mm 

mm 

mm 


•/ 


get. event () 

Reeds all the input sockets and pipes. If there is any info, 
decodes this. 

Reads: 

- command, in socket from XCoamand window 

- endpipe pipe from tiaed.trans. handler 

- coken. in socket Iron the previous token player 

- io. socket socket from device driver program. 


void 

get. event O 

< 

long token.buff er C GMV.8UFSIZE ] ;/* — - Buffer for received narking vector •/ 
long command .buff er C 2 ]; 


int aread, i; 


♦ifdef EXTERHAL.IQ 

/m — Check if there is anything from the device driver program to read */ 
if ( aread = read( io. socket, io.buffer, sizeof( io.buffer ) ) 

> 0 ) 

decode. io( ) ; 

> 

♦endif 
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/* — Check if there is a eoaaand available to rood */ 

•i -f ( aroad * read( cosnand.in , cannand.buller, sizeol( eoaaand_baller ) ) 
> 0 ) 

{ 

doeodo_eoad( cn— nri .buffer L 0 1 ); 

> 

til IO.HOSTS > 1 

/* — check if it is the global narking vector that is available «/ 
if ( aroad » road( tokon_in, token_bnller. sizoof ( token .bailor ) ) > 0 ) 

get_gnv( tokenjjufler ); /* — gnv available */ 

tilde! DEBUG 

printlC'gnv road %d bytes : ", aroad); 
lor (i * 0; i < sizeof (token_bnller)/4; i++) 
print! (" %d M , tokon_bullor Ci] ) ; 
print! ("\n") ; 

tondil 

> 

tondil 

> 



